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INTRODUCTION 

[lie MUL hngcjagc is dcacribcd in [lie Miif. Pmgramming Lnnfiuagc^ [}]. but in addiiiuii lo ilic [imgu.^gc 
iisclf, there is a rich and varied coilcciioti af software wriitcn in Uic hnguage whicli faciliiaKs [he wriiing of 
programs iind 5v«cnis of programs in Ml)l_ I"hc infonnalion describing diis pri>gr.immiLiE environincnL has 
been conuiined in various dtJCumenK. same otii of print or oui of date, and in siipplcmcnLil disk files 
dcscrihing changes and addiri^n^, Someof ihc packages of tuncirans used Loded with Mm cudchjvc never 
been fiirniiillj documcnjcd. Hiis niiiniial brings [ogcdicraiinc of [h,iiscii([ercd doc[imcniAtJon. 

The dfiCLimenfs purpov is ii> flesh out the description nf the laiEiiftBC cimuiined in 'ilic Mdl 
Tnigminmins I.Jiiguagc." Eiviiig -a fuller description of the prtigrapn writing and debugging ;i ids avjilaWc to 
Ml>l. users, to def^cribc the mcthtkl? forprodudng ci^de us^ible by nthcrs. [o describe dii- Mfil com|M!erjind 
die many other techniques fdr producing and speeding Lip Mm. objcci code, 

Ilic imagincdrcadcrcif diisdocuincniisstmeune whohasrcad'Hie Mill. Programming languaee." and 
now proposes to write prtigrams in Mni . possibly even very large prt>grams, Mfil pack.igcs tliai he wuuld 
find uscftil in the process of doing so nrc documented here: editors, debugficrs, etc. P.x^agcs that he might 
wish to use iviihin his prog r*tm are not included: data-management systems. comnJiind intcrpreicrs. etc, 

iTaudocumcni is nfncccsaty highly sclf-refercnt. as many ofd^c components of the MtJl programming 
cnvironmcni refer to each odier and adhere Lo the same conventions- Additionally, this document assumes 
that the reader is familiar with the language itself (at least to some degree) and wiU^ the ll'S. TRNiyC. i>r 
'iOI*S-20 operating systems. 
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NOTATION 

Anjihiiig whbch is ^^Til[cn in ihc Mill, hinguagc or whkh is lypud nn a compmcr cunsiilc appc:<rs hCFctn in 
n li-pcwriicr Ftmi, as in PPRJNT. A mciasyniaciic varliiblc - siimcihing U) be replaced in niciiinl use by 
siimcEhing dsc - appears a^ rJuiimei in an italic fnn[. Where a nicta-svniflcifc variable a being u5cd to denote 
a (cquircd argument tu Sime funciiisn, ir appears as bcfurc, but underlined, a^ thannei 

In the argtimcm icmplaica of Mm funciionsn tlie Individual argumcnis are often eiven in the form 
rjft'wmpjj/.'O'yjp, where argufiittii\%^ "descripiivc" name Fur the argirmenu ^nd lype is itiMDI tj'pe li>r range of 
lypcsj. In such eiiscs. the 'type' btwhan indicaies an .i[gLLinen[ thai is only exikmincd rr>nnith ar Falsity, arid 
niH Fariinj oFitSiilherqujilitic?. Sudiargurncnis in MDLiiicuFien dcclarcd'COR AlOK FALSF>\ 

rinalK. File names an: gi\eii as ElunrghFpr tile US i)periiiing system; 

deiicc: siuifneifiiml /niii2 

ihc annlngiiua ^^ccificaiion liir IKNI^X rirrOI'S-20 would be 

i/ei-ire : <.Vianie>fiintl .fnm7 

Nine ihat in the IliNKX/ lot's' 30 version oF Mm, thc/jiiii2 (which may include the Kruem/iiin number. 

;jfffJrr^jr*i)jndorci/«^ fields) is by dcFauk "HUD" as opposed to ">" For Ihc FI'S ver^n. 

I 
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nicMDI.PrtigrdmmingUnvironrncni ' ' 

1. Overview of the MDL Programming 
Environment 

'llic parts of Use Mill. pn>grnmimnfi cn^ironincnE described in thi^ diicumcni arc prniurily Ihrjsc dcjiing 
w-iih [he wriiing, debugging, sharing, ^nd mninicnance of cude iind proErams wriucn in Mui , Mifil of [he 
p.Tckages described herein arc wriL[cn in MD] ihemsclvcs: some arc assembly language pnigrdim useful lo 
Mm prugrammeis, 

Ilic di>ciiTnent is divided inTo chapicfs dciiling *i[h ihe mjji^r issues fa:ing [he ndvke (ur even ihc 
experienced) Mdi pnigrammcr. 

- "'I^ic I'.ickijge Sysiem' Jnimduccs ihc si4ind:tTd mechanism for lexical bkicVing :tnd ihcrcfure. 
shuring ofMiJl code. Llndcriiiindine t[^ use js Fundiuncnial lo writing Ml>[ progrjms. 

- "Prognm Wriiing and [debugging Aids' is Ihc l.irgcsi chapicr. h ci>vcrs mech.iiiisins foi Loading, 
diiinptiiE, edning, dnd debugging Mul C"dc. wheihcr imcrpreted or compiled, in ;i dcvdopmcnt 
ur >i pEiKluciLitn cnvinmincnL 

- "I'hel.ibmFySysiem' discu!isc*nhe usage oflibMrics nrMlii programs. 

- "ITic Compiler' incUidcs Uie specifics afinicraciiun wilh die Mm tumpiicr, aj.wcll .is jii ovcr-icw 
ofihcthcurj behind lusoperaiian. i 

- "MaVinE II Run FasEcr' covers the various mclhods for sp«dir>E up 'produciion' Mm code by 
removing medicilcdcallsandcompaciingdaia sirucmres, 

- The Assembler' di>ciimenis ihc Mui assembler and si>mc methods of debugging binary code- 

- 'Infonnaiional Aids" discusses a few pmgrams. mosi wriucn in assembly bngnagc rdlhcr than 
Mj^U which arc usehiL to [he Mdi. programmer. 
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2. The Package System 

'ITicponion ufiho Mm crvironmcni which provides a uniform faciliiy fur lexical bhicking i^kinj*n asihe 
Kickagc Sy^icm. !n one sciiiic His ihc miisi basic pariof lliccnvimnmcnL since U enables many p rug rammors 
III use cnch iiUicr's code wiihiiui idcnUncrcondicts. 

In Addition, ihc Package SysCEm \$ inicrfaccd m ,i librarv raLliicy (ace sccljon A) by which MDI code may 
be stored and iaicr Toadcd as needed, 

■j'hc l*ii(.l(age Sy^lein i& sii ba^ic la use cjf [he Mul cnvirunmeni Ihjkl (*ilb ^ few cicepuons) c«ry 
^iibs>'sum iir family (irMlJl.runciiuns described in this diKU men L is a 'packaged 

2.1 . The Theory of Lexical Blocking in MOL 

Lexical blocking [^ inipk'iiicmcJ In Mul tiy mcan^ of OflLlSTs and tISTs nFOSLlSTs. Chimges of 
lexical conicM arc performed using ihi: SUGn^ SLOCK .vui ENDBLOCK. The P.ickage Sysicm provides a 
higfi-lc^cl imerface in ihcsc low-level consimcrs. 

'Hie priniarj ^ual of a IcAical bliicking scheme is llio prevention of idcmiricr conllicis, Spccificallj, when 
yimr program references the variable X. il should be yoor X »nd noi thai of Rome oiher program, Al ihe same 
lime. itshoiiTd micbe ncccssa^' ^ova programmer io search every prog mm previously writitn ui verify that an 
idemiRcr he wishes to use is nm alrc;idy 'taken'. 

Iisliuuld be clear ilKki die simplest suluiion, a single OBL 1 51, will not saiis^ eiiherof ihcse giwis. With 
only one OBLIST rherc v^ould nccresarily be ideniifierconflicis-necessiuiling exhaustive seard^ing fur unique 
idenCifiers. 

Obviiiusly, piugrammers cuuld put ihcir program's idcntifieR on an OBLIST unique to ihai program, 
LJnfortLLJiaicly. such a suluUon addressee only half the problL^in. Whathappens when some uiber programmer 
wishes uj UK some of Ihis code? He could insert the imiqueO&LlST fur that program inio [heOBLTST path 
for his program; but the mnment that k done he gets all the idenEifiers for that program, including local 
vnriables, mtemal date structures, and si on. 

Consequently, we muvc to a siliiation where each program uses twoOBLlSTs: one for the idenlilkrs Uiat 
are local lo die program, and one for Ujc itlcniincrs Uiat are to be used by uthcr progrjims. !n die Piiekage 
Sy^cm. these are known as the "jniernar OBLIST and the 'entry' OBLIST. 

Most of [he idcniifLcrs in a program arc local ;o JL and want lo be placed on ihc iniemal 0BL1S1. 

ID 
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Tlicrcroro, in [crms ufan araLLmcni lo [hf BLOCK SUBR, when a progr.im is hging Imdod intu ^f[>l, the 

OBLISTpaili wanmobe: 

( iiilenuil-oblist 
eniry-ohiisl 
<RO0T> j 

Wiiii Uii^ OELIST pjih. musl ATOKs^idcniincTii) will be uti tile internal OB LI ST (iis READ puii unknown 
idcncifim on <1 .OBLlST>). buL llic ATOHs fur die cninci iinfl ihc ArOHi for the usuiil SUBRs will be 
iiv;iil^le. 

'Hie only issue Kl lo be addressed i^ihiT of [isinfijin enir^ i>F*i dirfcrciil pmgr.im in yourpnsgr.nin, ITilS is 

Liceomplishcd bynJding lEic ciiiry OBLfSTstif any^uch |iR)Er;]ni'i UMhe pnUi iillcraOQT: 

{ i'ilcmnt-obiisi 
eiiir}-nbhsl 
<ROOT> 

'■ ) 

As only ihecnif^ 0BLI5T. and nm ihc iniermil OBLIST, nf die prug:;im being used is .iddcd lo ihc paih, 
The chance ufidcnrillcrconfliciTS lessened. 

All dial remains is lo intruduce the ftinciions by which Itiesc various opcraiinns arc pcrfonncd- 

2.2. Package System Overview 

llic fijnclions which make up the Package System arc: * 

- PACKAGE. IliisindicaicsUic^uaof^ipacfcageoffLiiicUons. 

- ENOPACKAGF, "l"hls indiciites [hcerjdof ihcpac^iascof funcLions. 

- EMTRY- This indicates ^n ATOH *hich is to be made available iiuisidc ihc definition of Ihis 
package uf FuTiciions. All mher ATOHs will mil be direcdy available outside [he pac^agc- 

- USE, This indicates a rcftrencehy n,ime to ;iiioihcr package of fiinclions. 

- U5E-DATIJK Hiis indicates a reference by n;imc ma daiascL 

- DROP and L-UHUSE. These undo the cfTccls of USE and US£-DATUW, 

These funciJons arc ihcmsclvH pari of a package named ■'PKG\ which Js preloaded inioMnL 
The Theory of l^cxioil Rlockingin MDL 2X 
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2,2.1, Sample PACKAGE 

A ^'^mplc Mi)i PACKAGE is givon wich comment In (irdcr Eu dciiiuji^iraic t]io u^cofLlicac Tunuians, 
^PACKAGE "HOUR-STRING-) 

;"PACKAG£ begins the package called HOUR-STRING." 

<ENTRY T1ME-STRING> 

l^The atom TIMH-STR1NG is an entr^ to this packagfl- 
it may be reTerenced by oltier packages by 
USEing HOUR-STRING." 

<USE '■DATIHE-> 

:''IndiC3te thai the package DATIME is 
used wi ttiin tlie current package." 

<DEFINE TIME-STRTNG () 

<STRING CUNPARSE <HOURS>> " Q'clock"» 

; "Define this little function which returns a string 
telling the last hour in a strange format," 

CPEFINE HOURS () <l <RTIME>>> 

; "Define an inlBrnal fund ion uhich is available 
only within the HOUR-STRING package, since its I 

name is not in any ENTRY statement. 
Note that this function reTers to RTIHE. 
which is an ENTRY in the DATTME package. - 

<ENDPACJCAGt> 

I'lhs end of this little demonstration package." 



2,3, PACKAGE 

niis fiincijun dclimils the beginning ofiip,ickitECi>rfurclioTiS- llUfkesonc required argument, a STRING, 
which is [lie name uf Uic pjiti-ige. Iliis STRING uniquely idcntlHes Lhc piicVnge within a Mbrary of pncfcagcs 
^ see seel ion ^ J. 

In a PACKAGE [hnsc AT{>Ms which arc specified as entries live in u scpanilc OBLIST uf Lheir iiwn. cnltcd 
Uic emiy OBLIST- llie ATOM naming \i\\^ OBLIST is on the PACKAGE OBLIST and has the same name as 
die PACKAGE itself ITnis, an entry 'X' of » PACKAGE 'V i«i)uld have as its fitlHrailcr' name; 
Xl-Yl-PACKAGEI' , 

PACKAGE blocks (se[£ up) die currem OBLIST path 50 diat lhc ATOHs which arc inland lu [he PACKAGE 

12 Packdfic System Overview 
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Ti.lliiUt.3nOBLIST*hi[:hisnu[o[[icr^LSCuscd Ihc ATOM n^im.ig JiisOBLIST ison diccmry OSLIST of 
'M^ PACKAGE, and is by dcfiiuH given fi jtomc ™icd by puiUn^ ihc chaMcicr T ai d.c bcginnm^ Ljf the 
PACKAGE", name. An fntcm.l ATOM T in Ihc PACKAGf 'V prc.uH.sly mcnli.ncd would h.i.. as -is 
■fi(n-irQiler'n:imc:Z]-lY!-y[-PACltAG£l- 

PACltAGE .!s<> keep, truck of ihe focL H>M the pariia.Lif PACKAr^E n.»ncd hiis been defined in [his MOL 
pniccis. hy puuJng ils njinc i»n ihc PACKAGE OBL 1ST. 
* PACKAGE 'Utineistrin^ 

isize:fsx> 

PADiAGE [A« .hroc nplioiKil .irgumehLS in .tdJIlim. eo ihc required mc (the optuin.if .rgumeois iirc 
i£n(iredif/<«^>^^'i^ulFeiLdy [i PACKAGE); 

^/--i^^r--i',lben.,Tie of ilieinier,.j»]OBLlST of Ihc PACKAGE; by dcf,iLif^^ 
the IciWrT prefixed. 

shfih Ihc number iif bucket? in [he tjiiry (thIiSL; bj default 19. 

fsizc h the number of buckcis in tbcr inEcm^l ubli^ii; by default 23, 

Tn ^iddkioM [o PACKAGE. Ihere e.i.E. [he ubs.^icie function RPACKAGf . d,tumen^cd here nnly because 
ajme programs sdll use iL 'llie dilTcFcnce bciw«n them is ihai ihe cxMvy OBLIST fnr jii. RPACKAGE ,s the 
ROOT OBLIST, The iniplicmi»n of inscmng an entry iiiia Ihc ROOT is that Uijs rcqurrcs thai U.e nameofihc 

cniry be unique over .El PACKAGES, because die entry isJnem^Lh^m^pr,mi.lcd:o [he siaimnf a S^ 
is tin r;ire eases) iisefLiJ to do Oils, but die curr^t way is widi O^e fijiicuon RENTRY <sce secUan 2 J.l). 

2.3.1- ENTRY 

llie ENTRY funaian applied to one ar mure ATOMs declares llim ihcsc ATOMs are to be put inio the 
OBLTST rescued Tor cniries m ihJs pariic.t.tr PACKAGE. Only ATOHs d^lared In this way will be aaessible 
(in the normaf course af events) lo funciion^ ouisrde ibis PACKAGE. 

k is pos&rblelopEaccaimee[imcs(>f it PACXAGEun the ROOT OBLIST usifig die function RENTRY. It is 
rccmimcnded ihm insiead of ushig RPACKAGE in du^ rare c.scs where entries must go un Lhe ROOT, 
RENTRY be used instead. 

All ENTRY stmemcnts should appear inimcdf.idy afier the PACKAGE or RPACKAGE staicmenL Note; 
never put a USE Sl^Kmcnr before die ENTRY sEaiemcnis: iF you do, you may get die ERROR message 

PACKAGE 23 
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ALBEADY'USEn-ELSEWHEHt,mc;inihg[!iy[Ehcnamcof jncmr> i5CjnniclLng\uilh an [NTRY inuncorihc 
PACKAGES you USEd ENTRY witi also give itn ERROR if ii is used imlstiic the body iiFa PACKAGE. 

2.3.2. USE 

This Funciion lakes m arguments one or more STRING^ which iire ihe n;imcs (as given ti> PACKAGE) of 
oilier PACKAGES, EXTERNAL is a synonym of USE. USE causes itie entry OBLlSTs of ihc PACKAGES named 
1(1 be spliced inui Uie currcni OBLTST pnih. ITius. references m cnu^ies i>r those PACKAGES may be made 
iifler the USE, until the ncM ENDPACK AGE lor the next DROP or L -UNUSE if USE is being invoked ouiside a 
PACKAGE [£i load a file). 

USE is conscqucnilj Ihe mechanism for sharing ctidc:. If the PACKAGE hcing iisod is already Inadcd. its 
cmncs !iic made □vnilahic; if nol. Uie PACKAGE is loaded firsl isce scciinn AA ftir delails im how IhJs is 
aa.-{>mpllslicd). 

2.3.3. USE-DATUM 

USE'RATUM requires one STRING argument. Ihe name of a data scL If the daia Sci is nol loaded, 
USE -DATUM loads il and croHiies an ATOM ofthe same name, on Ihc USE -DATUM OBL 1ST. lAhoseGVAL is Ihe 

data set. USE-DATUM alwjyi^ EVALs id Lhe daia set named, regardless nf wheilicr il liad to be loaded or noL 

2.3.4. DROP and L-UNUSE 

Tl:cseruneiion5iaVe the sameatgumenisasUSE and USE-DATUM and undo iheirefTcciS. 

DROP simply Splices die named PACKAGES otii of ihe curreiU OBLIST paih. A USE of a DRDPpcd 
PACKAGE ^^iU not reload the PACKAGE but simply splice iLback aiio die OBLIST path. 

L-UNUSE splices die PACKAGE nui and removes its name from [lie PACKAGE OBLIST, which will cause 
Uiecnlirc PACKAGE lobe reloaded if it is USEd again. L-UNUSE of a data scl will remove Jus ATOM from the 
USE-DATUM OBLIST- 

2.3.5. ENDPACKAGE 

llic ENDPACKAGE fuijciion of no arguments terminaies Lhe defmilion of the currcni PACKAGE and 
undoes die lexical hlocking done by ihc PACKAGE function, 'fhe ENDPACKAGE stjicmeni should be ihelasi 
one in Lhe file. 
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2.3.6. PACKAGE Restrictions 

Inhere ^rc sume rcstnctions un what Ehc user may du inside a PACKAGE. 'Ricse arc cnRiJircd bv [he Library 
System whon the iii^criXUcmp[s[o submit ;i PACKAGE to a library. 

A PACKAGE skiiild not FLOAD ur LOAD any flic to obtain parts ufJLScJf All Such cnvjrdnmcni setup 
4ll<iu!d be done with USE and USE-OATUH. 

A PACKAGE may noL reference any ATOM whose OBIIST patli gties ihnmgh the INITIAL OBLIST. All 
of a PACKAGE'S noneniry ATOHs should fal! niimmlly into Ihc PACKAGE'; inlcmal OBLIST. 

As me nil 1 1 tied before. tJie RENTRrs i^fj PACKAGE have the same OBLIST i^tiiUiSiis SUBRs. i.e,.[hey must 
be unique iinmng both ^ilj SUBRs jmd .ill PACKAGE entries. 

2.3.7. ENTRY Name CotifltcU 

Ills pos-sihleU} have two nrmorc PACKAGES (mil RPACKAGEs) which have emrieMmFiRENTRYsJwHh the 
Slime PNAME. If ihctiwr reeds bolli PACKAGES, it Lhe same time, he miiy USE ihcni btnh jnd referlo the 
ambi^iUuLis entries by ibcrr ^fiifl trailer' names. Ml of fhc nunambiguou!^ eiiirics in both PACKAGES may still 
be referenced by PNAHf only. 
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3. Program Writing and Debugging Aids 

ITiischflpicramccniiaics on editing and dcbuEgingiiids forMnt progriimmmg. Hic basis for editing and 
dchjgging in Mnt. is iworolJ: First, MiiL is an intcrprcicr. which pcrmiis inicrjciivc icsUng jnd debugging 
ofsoflwarc- Secondly. Mm. programs (even compiled Mm programs) arc struciurcs .ind ihcrcrorc nia> be 
m.inipuijlcdby (Hhf^rMiii pri^grams. 

Pjick-Jfics uwfiit in cdiling jind debugging range rmm EDIT .ind PPRTNT, which arc prchiiidcd, Jind which 
rntm ihecorc of mosi editing or dcbLiggijjg 5\-5Wms, lo more sisphisijcaicd ;iidS5uch j^ DEBUGR ;ind TRACE. 
lATiicli nrc more pijwcrfiil, .i\\t\ o^efut for snore complicnicd debugging. 

U^iHi^dbc noied Lli^iL in JtddUion Eo Lhe ediiots discussed below. Rm01)I- [5] und Kmac^ |2|/ri=co bawd 
ici.[ cdhoi^. iindcisT-ind much of the Piynijn and mnnyoriTicconvejUinflsofMlJl programs, 

3-1. PreUy-Prmling 

y\ic purijijsc of prciEy priniiiiG is :o cliiriry ihc simciLire of Mm ohjeets by priming lliem in a more 

h II niJin- readable form-ii [h.in Ukii provided by ihc SUORs PRINT, PRlNl. cic. Objects iire preUy-prinicd 

ihroLigh the judicious inscnion of spiiccs, cabs, iind new-lines between tukens. Pretty-printed objects ;irc 

re;idiible by the Mhi Ucader Pretty priming ig on jiid lo undersunding iind debugging Mm FUNCTION^ or 

other ohjcciS- You will probiibly Hiid pretty priming to be excrcEocb helpful, e&peci^lly if you are wurking 

wiilioot a listing ut *i[h an old lisiing. In focu pretty printing is one way to mskc n new pretty listing aAcr 

editing, PPRINT iipicloaded in musE initial Mms. The niime of Uie package conUiimng PPFt INT is ''PP^ 

<PPRINT gn^ diaimel> 

prelly-prinis any on channct. ITic second argument is oplinnjl, by dorault .OUTCHflN . \( tiny is an ATOH. 

PPRINT will enclose it In ^n iipplication of DEFINE, DEFMAC, SETG, or SET, as seems appropriate. 

COMMENTS found inside airy arc righi-juscified. PPRINI cannot outpui an RSUBR wiChoui FIXUPs (thai iv 

one thai was READ in while KEEP-FUUPS (see section 14) had nu LVAL or had a FALSE LVAL); tl win 

^ive the ERROR nics-sage CAN-NOT-BE-PUMPED. PPRINT returns .NULL, which Isiin ATOM whose PNAME 

rtasingie nibouL invisible (ui normal consoles, 

<PPRTNF in: sirirt^- iir-tiiwin-iir Jiss uufjih:sfnng 
viJth:fix nvt?:bvolean> 

pretty- prints all the contents of f'/( into outjile. 

IF Hf is an ATOM or a LIST of ATOHs, its VALUEts) are the objects to be PPRINTed. Jn tliiscasc, ouifile'ri 
by default a file whLSc first name IS produced by liiking die PNAHE of fjj (or jVsfjm element if »j is a LIST), 
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If m is a STRING, if specifics a 11c cuniain'mg objccis to PPRINT. In this case, uia/He h by dcfauk 
-TPL:V 

wiM is ihc maximum width of utitput lines (;illhinigh ouipui lines jrc prevcnicd Trom bch>g cjiirpmcly 
Kme):iiisopcional.bydcfaul:Cl3 ,OUTCHAN>, 

entl? Lclls PPRINF whcOicr nr ni^i la EVAL c\cFythinE in ihc Hk; it l5 LtptionaL by dcfauU a FALSE (don't 
EVALl. evul? is meaiiiiifijcss if in is nui a SIR ING, 

PPniNF rclurn^ ciUicr "OONE^" i>r ;> FALSE If it cauldn'I opi.'n r;iy;/e \\s t'iiifik. PPRINF insens page 
bimnd,mca In mifik. bci*ccn ohjccis. every 60 lines or fewer; yoii may wnnl m mo^c ihcsc iiftcnviird lu more 
Icigioril phici?s. PPRiHf binds KEEP-FiXUPS ^md REDEFINE Hi T. ;tnd QUICKPRINT (see bduwl lo a 
FALSE. 

3.1.1. PPRINT Control Switches 

J'PRINT'5£impuilsarfccit:dby (he local values of so^cr-il ATOHs. Kadi value is w^miricd only For truth. 
.gUICKPRINT 

Ifdijs ATOMS LVAL is a FALSE, ymi ^rc in slow mode: oihcnvise (including die c:isc of no LVALK you are in 
fiisl mtHlc. 'flic heli;ivioMl difference is iliis: in fast nmde. ilicre may be COMMENTS in the prelly-prinied 
nbjccUs) which PPRINT misses. Alsi>, fast models indeed Faster di an slow mode. Kjst mode is the default, 
dijit is, OU^CKPRINT is iiiiiidHy [rue. Hie modes are rctlly di&iinguished by the depih of recursion lo which 
PPRINT resom. In slow mode, it recorscsall [he way down to e>ery mfmad in the thing pretty primed: in 
fy^[ m tide, it goes down only far enough eo find suincthingthat will Hl on a line, 
.LQOKAHEAD 

PPRINT uses full recursive lookahead lo avoid packing [hing,'% ag-iinsi the riEht margin and, as a rcsulL not 
being able to fii things within die right margin. I'hc lookahcad results in very good fnnn.iLting of 
deeply-nested HAPFed and FUNCTIONS: all bur (he mosL bizarre cases sJiou Id be very legible. However, it 
can result in noticciibic 'pauses' in the printing operation and, in sumc eases, a net speed si ighdy less than wiih 
limited liiokahead. Since this can be a disadvantage when using PPRINT interactively on a heavily-loaded 
iysfcm, Ihc Imifcahead can be disabled: if die LVAL of LOOKAHEAD is a FALSE, no lixikahead will be 
perfonncd: olhcnvisc U happens. LOOKAHEAD is initially taic, dial is, Imkahcad happens by defaulL 
-VERTICAL 

If LOOKAHEAD is a FALSE, The fomiatlrng can cause too many objects to be squeezed agifinsr The right 
margin. So thai particular cases can be made legible, the format when Inokiihcad is not in use can be 
manually scL if the LVAL of VERTICAL isnon-FALSF. PPRINT will indent very llulc whenever indenting is 
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idlk'd foT.iVERTICAL being iruc means a 'more vCrticjl' formaL) VEHTICAL is iniiUlK FALSE. The value 
or VERTICAL is ignored *hcn LDORAHEAD i^ inic; iUc llXlV.^i^cad cfTcciivdy i:hi)oscs difTcrcm values for 
Vf RT T CAL For difTcrcnt pans oflhc objcci preiiy-prini«l, 

3.1.2. Lower-level Pretly Printing 

IL is Si>mc[imC5 desirable lo use s<imc of Ihc funiCidns ihiic PPRiNT uses, bin in it dilTcrcnl way. For 
fiijmplc. a ijpcci[ili/cd prctiy- printer For Pnigrrfm AbsiMcrs wiurld wani la inscn indcnicd Held names Jnio 
Ihe uuipiil jind prcLiyprini field values wifh ihc time indcnUiiion. Ilic hitmcs t if lower- level preilyprint 
fimaioiiR are inclnded in ihc ROOT OBLIST for such piiiposcs, 

(FPRINT niix lrfHi:ar^in:fix> 
prcUy-prinLs niiy on .OUTCHAN to Ihc righi of h/i-rmiriiiii. Vhc seeund arfiumcnf is oplionpl. by dcfJiuU 
<VALUE LEFT-MARGIN>(scebek)w), 

<fPRINl liiii' icfi-miir^in:Jir> 

tl'niHl isioEPRlNT jsPRINiistoPftTHT. 
.LEFT-HARGJN 

Ifmisdie ATOMihal EPHINT binds to Its second argumenL You can SET il outside c;ills to EPRlNT in order 
It" niakc !i pcitniineni Icfi margin. Its rniiial LVAL Is D . 

<iN0tNT-TO coluiiiiKfix chaimcl> i 

iiu[puis Ltbs and/or spaces in jidvancc ihe ouipill column f < 14 dianficl» lo cuhtnu. ffil is not already past. 

<COLPP any 

channel 

Iffl-niatguisjb: 

ristii-iinirgiit:/ix> 

prcily-prrnts niiy on channel (by defimli .OUTCHAN^ between die margins Ic/Hnar^in (by default 

<l* chaimel>, ihc current column) and righi-marsin (by dcFaul[ <13 diannet^. the rishlmosl column), Afl 

;n^gumcnts but the first arc optional. COLPP return? . NULL , Fur example. 

<COLPP any .OUTCHAN 10 70> would leave a lOtharaciOf margin al left and right on an Sn-cnlumn 

OUT CHAN, Abo, 

<PROG () <PRIN1 AAAAAflAAAAAAAAA> <COLPP ,FO0>> 

would result in output like 

AAAAAAAAAAAAAAA JJ'FUNCTION ((X GGGGGGGGGGGGGGGGGGGGGG] 

<+ X 1>1 

EPRTNT, EPRINl, and COLPP arc afTectcd by die iruth of .QUICKPRINT. .LOOKAHEAO, and 
.VERTICAL. 
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3.1.3. Ampersand Printing 

■Ampcrs,i]id printing' consists of priming any nbjcci on a single line by using tlic chiir^icr S Cimpcn^nd) 
u> mcLin 'ITicrc's miirc i^mffhcrc.' flliis tccliniquc is btinowcd from Lhc liiKrlJsp editor.) 

There arc iwo ways in which fr is used by Lhis printer as an abbreviation: 

1, An a jippejring between some vanciy of brackets iiidica[CN*Eh,ii there i^ j big ubjcci uF the 
indicated TYPE there, 

I'lTieclMrrctcts . .fiorfr. . on die left or rigln iif a sinie tu re mean that there u re more objects to 
llic left nr right which have not been printcd- 

F-x:miples: 

^FUNCTION ((A BCD) <&> ) 

'I1iisis,( FUNCEIOM wicli ftiur argnmcnts in its arfiumcni L 1ST, iind the f UNCTION l^tHJy cnntiiina one FORM 
which was [110 big tciprim in tlie icm.kjndcror the line. 

fPPOG () <KftK C+ ,A 5>> <PRINC .0> <SEI BAR <ORG>> <&> &.,> 
Ihis is J litfse FORM, namely, a PROG , In addition tii \hc element printed, tJierc arc nn]re eteincnts to the 
right and there is one FORM which was lotJ big to fit 

Ampersand printing is erfecied by rwn pure RSUHRs: *, annlogotES m PRINT, and &t, analogous to 
PRINT, A related ffSUBR, SLIS. can be applied to no argutiicnis to putyuu intii an cndlcJiS PEAD-EVAL-& 
loop, instead orthcnomol K E AD- EVA L- PR I NT foop, 

3.1.4. Examinmg the Stack 
<FRH M> 

retumsthe^/jnhFRAMEdownfrinn the top iipplicatiun of ERROR or LISTEN, 

^FRAMES hQw-many:fix Uar{:f\x> 
prctty-prrnts howtimny FRAHEs [by pnndng die FRAME number [suitable as an afgumeni to FRH), FUNCT, 
and ARGS of tlic FRAWEJ. sUning with CFRM j/iir^> , ru>ti] argumenL-^ are uptiunali iWrT defaults \a^. and 
/ffiH^MWHy defaults to a large integer, A FRAtiE whuse FUNCT is an ATOM whuse VALUE is an FSUBR is not 

priiued.irihe same inforaiatian is found in die next lower FRAME, 
<:FRft How-nwny:jix Sfart:Jix> 

islifcc FRAMES but uses ampcniiind printing instead of pretty printing. It is hjndy for sumoiari/ing FUHCTs 

and ARGS that are kirge or unpniitable (like RSUBRs with no frxups). 
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<fRATM hoK-rfWiy:/ix start:ftx> 

is tike FRAMES buL gives an obbrcvjpicd vie* uf the stack, ft prints FUNCTs only, and only for FRAMES 

cminccicd with njmcd FUNCTIONS, RSUBRs, und RSUBH-ENTRVs, 1[ is hnndy when a FRflME contains a 

imnLEGAL? objccL 

<FRLVAL atom 

lHfi\-inany:f!x 
statirftxi 

pnnis out [he siacVcd bindings ufd/ni'i, going through hoivmony FRAKEs, smrting wjlh <FRM siarO. flic 
twii numeric iirEumcnis arc opllimal: ftnu^/^iiT/^y dcfaulli: lu e hirgc integer, and i^uf/ defaults Lo 0, llie 
lonnjl of the priming ]^ [wo cuhimns: the firsi onumn is the number of the FRAHt in which niiitu ha^ a 
binding; the secunJ column is the v^Tue bound, or ji incss-igc proclaiming the tacV ofj value. 

<FR&VAL mm 

^lo^v-n^any:Jix 
ifart:fix> 

ft precisely the Mmcas FRLVAL.ciicepiiliai The values rrc imperii nd primed instc;id ofPRlKTcd. 

l-inally. the " FPHSP" PACKAGE cnn[;iins an;ilogncs of many of the preceding funaians, but Ciicli takes as 
iLsfiisiargumcnLaFROCFSS. bydefaulKHE^- llicic are all numcd by adding a 'P' to the end oflhc usual 

name, horcxampte. 

<FR&P <MA1N>> 
ducsa<FR&>inthe PROCESS MAIN. 

There Is one addition nl funciionof interest in "FRMSP". 
<FftTYPF hiiYrn}ar\y:fix siari:fix> 
isfikcFPAMFS, but givcb only the TfPEs of die arguments to each. This is useful in those simaiiom when the 

iiaci; shows illegftl FRAMES oroiherunprinLible objects. 

3.2. The MDL Editor 

FOIT allows a Mm user to make incremcnial changes in Mill. SEructured objects, without leaving Ml)L 
and with Ihc ability to aivc the results in a flic, and to set or clear condiLional breakpoints uf various suns in 
ohjccts that will becvaluutcd, suchas FUNCTIONS. 

EDIT is an editor/debugger writLcn in. written for. and n.mning under Mm.. It comprises the package 
"EDIT" and several smaller packages which *H1 be mentioned Ijtcr in this sect ion. EDIT fs pa'luadcd in 
most initial M[}U. 

To Start cdiling, apply EDIT to no argtjmenis orio the name of the ohjcci you wish to edit: <EDIT]* 
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causes onu-y irUi EDIT and apcn^ [he la^L ^ibjcci edited; <E0IT otJcci> causes ciiiry into EDIT and upens 
<rbjccf furcdiiing. Permissible objecf^ inelude: 

- ATOMJi. IheGVAL (prercrablj) or the LVAL oFlhe ATOM 1^ upcncd. !f il has no value, EDU 
rciEirnsaf AL5E, 

-APRIMTYPE LIST. nicPRIHTVPE LTSTisopened. 

- A FIX. ITic slack Tramcwith [hiJi number isojuzned (i.e., <AflGS <FRM Jix»). 

RiTUifEOIT'sefTTcicncy comes fmmfurhiddingkU] delve inUMibjecKdiiir are nu of PR IMTYPE LIST, 
dijns.noi LISTS. FORHs.P^UNCTlON^eTL-, Mlcmpis to edil objects (ifudjci PRIHTYPEs will rc&iih in error 
mcssaaes. Ilicse nhjccn can. however, be rrcaicd as uniK when inserting, smirching, cic,; or Lbey can be 
chLiiigcd iniu L ISfi. edilcd. and Uien dunged bact Ui dicJr urisinal types. 

3.2,1. The Edit 'LISTEN Loop' 
3.2.1.1- The Reader 

When in EDIT, you -ire typing ar a speeiaL non-5iand,ird, inpul ftmclion: nieEDIT Reader, 

rhc Reader allows you to lype EDIT cnminards and have [hem executed, and alsii lo evaluate Mvn 
eipressions nunna!!y. iLs characlcristhzs arc as futlows: 

- As in ibc normal M I JL Reader, nodiiagisdone unlifyou type ESC. DEL, rL. f D. tQ^and tS also 
work nonoaUy. 

- 

- All EDIT commands are terminated when an ESC is enenuniered in the input stream. In 
addition, must commands will termni;ne whenever ihc mo^i in urn number of arfiumenis required 
hiis been inpulor whenever an argument of the wn>ng type L'i encountered. In ihc former case the 
next object is taken as a new commaiiri: in the laucrcasetheabjcciof the wrong L^pe isLnkca asa 
new command. EDIT cdmrnands may be typed in ciilier upper or lower case. 

- If you [ypcsiimedijngdiat EDIT dues not rccugni/j as a command. nonnalMnr evaluniion and 
pnniing are performed on LbbiaiincEhmg. i his cvalua Lion will hdv« no efTecLim your position in 
the object you arc editing. 

- Wliilc editing a fimcUoii which Is part of a PACKAGE fdciermhed fmm an eiamifiatmn of the 

OBlISTconEJiiniiiEUieATOMwfiosc value IS [he ftmctiifn). EDIT causes the OQL 1ST path to be 
sol Lip to what it was in thecnvironmem of ihul PACKAGE, lliia has the advanuige of rediEcing die 

nurnberufirallei^prinLcd. and causes newly entered ATOMs to TjII on the correct OSL 1ST (the 
internal OBL 1ST of the PACKAGE). It has Uic slight disadvantage dial it disables the dynamic 

loader (which tlcpeiidsun unbound variabb falling on djc INITIAL OBLIST). IftheGVALof 
E-PKG is 2 FALSE. Uiis feature is dksabJed, and the normal OBLIST padi is in efTeci during 
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R 6S 

Ciuscs execution i>f EDIT command R, wiih argumcrlS- 

<H 5>S 
Causes application oflhc ruiiciion R lo5. 

3.2.1.2. The Ampefsand Printer 

Vimr current i^isimn is dis|>by<?U by :nmpcrsiuidpriiiliiiEMsccscc[i"n3.L3>. ITiis consists cirpriniinE any 
iJijccl iin ;i single line by using the tharjticr S. UmpctSiind) in mean "nicrcs mure suilT here/ 

■Ihc .impcismiJ primer uwd in EDIT is much like lUc j^iandard o\K, wilti Hic ;iJdHion thiil your current 
piKiiion (sec belii*) k Jispbycd by the glyph I. 

When ynu iniiially enter EDi T, yuu mc in a mode tulled non'^crbusc; in whieh jimpeTs^uul primiiiE is noi 
,nilom;iiically doTic rnlUiwingexcculiun tif EDIT commands. TlicV command is used U) logglc yovi m and oul 
[if vcrbdsc mode (sec below), 

I'jiamples: 

^FUNCTION ( 1 (A a C OJ <&>-> 
lndic-Lies Tliai your pnsilion is just lo die left of a FUNCTION'S argument \hl and llie FUNCTION body 
ciiniamsonc FORM which wasloobig toprinL 

<_& <KnK <+ .A b» I <SET BAR <ORG>^ <&> &..> 
Indicilcs thai you aie in die middle ofa brgc FORM leg., a REPEAT ur a PROG), positioned just to the tefl of 
Lhc<SET BAR <0RG>5, In addiiidn Uilhe objects printed, there arc mure ubjccts Ui both the left and die 
right, and Uiofe is line FORM which wa5 loo large to fit on the line, 

3.2,2. Edit Commande 
3-2.2.1. General 

A sequence of EDIT commands is executed as soon as you type ESC. IFiine awnmaud fails, subseqnem 
cnmmands up lo Ihc ESC are ignurcd, and EDIT types out an appnipriaie error messBgc. A failing £017 
command generally has no cfTeci whatsoever; but see individuaT descriptions, 

Noic thai fl^/ arguments W EDIT funcnons niusi be legal Mm ubjecis- In paiiicular. vou can't scarth for 

U 'njcMDL Editor 
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<5Er .^incc ihc O's arcn'l balanced- Norcan you iiiMri II (Rui you can. For insiancc, scitrch for and insert 
<SET THING IX) 

Ifflcinnmsnd expects an argumcniand doesn't gcmnc, an error mcssa£C will hcprintcd- 

MiiJii EDlTcumniandsUikc F 1 Xcs as .irgumcnis. Those thai di) inicrprcL die ATOM • as .in nr^umcni to 
mean 'as TTiiiny .\s pu5sible'. 

Whenever yi>u are in EDIT, you have a well-defined 'pusiiuin'- A pusitiun is a 'place hisiile a Mill. 
siaiciiLFc; Ihi^ 'place' is eidier bcity'em two clcmcnis ;)f die Siructure, or between an cfcmcni and cidier end of 
die struciure, i>r iiixide an empty ^iniciure. All cdilliig. niovcmcnL und printiiig cnrnmands opcraEC rcl;ilivc m 
ytiur current po^itiiin. llic icrm 'cuisiir' is used in the rtilloH-ing dcscrfpiions m roFcr lo an cmhudiincni of 3 
pKltEon. 

iTic formal Hicdin e*K;h ofUic FulKi'*ingcuMimjnd descripUons is: 
CaminUiiiJ as Typed fiiiglish Name 

Descripiion 

3.2.2.2. Generar Commands 

7 duh? 

Causes a ihort summary of all EDIT c:)mmands to be typed uuL The same nummary appears laicrin dils 
chapter. 

T? huh? 

Similar to die above, but the sunuuiiry is even shorter, and shuuld fit entirely on the screen of an Imlac 
iciminaL 

Q Quil 

Leave EDH and return ii> Ml>l-. (Causes EDIT to return liic ATOM T.) 
QB Jix Quit and fi&try 

Quii from EDIT and then retry die frame specified, or by default, the one uriBiniilly given to an open 
command orJTnonev^as given. ll3C Frame bencadi the last ERROR or LISTEN Frame. 

*F ControT-f 

This is not renlly an EDIT command; radier, 11 is 3 character. Libcained From the input slrearn at inLcrrupt 
IlieMlUHditor U 
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Ic^ol. which is used [orcLum Jim UUhcEO IT Render from snmc hifilicr level of applicminn- e.g., an ERSOR'5 
LI SUN. lLi5 the EDIT cquivitlcniofERfiET «ill^ niiiir&umcnts, 

tf (iir tS) typed duririE ciccuiiim of an EDIT commiind is simil^i m nunnal M[)[ tS bui rciunis to Uie 
fOlT RcflderinslcadofdicMni. LESTENlwp- 

l-4^uiv.ilcn:U)gMuwedbjaDlT tjfiyfcO. Posiii.ms diccur^r just u> die Icflofiho Rri dcmem "Fihc 

cm lie object specified. 

-, Open Trtis 

If [lie ohjcct to Uic ri^hl nf il^c cursi>r is un ATOM, or a FORM whose Tinii dcmcm \^ ,in ATOM, and [he 
ftl OM-s vohic is iipen:ihL\ then it k t.pencd. Hvs coininiind is useful when Lr;icjns :" catling sequence [Jiriiugh 
sc^enii functions, 

3,2,2.3. Movement Commands 

y. up to the lop 

njiccs the cursii; at the posiiion 't hnd following in 0, 

Muvcs me curwr^i- objcits to The right, by defDult one, U fix Is too t:,rgc. i.e.. [here ;ire not [hdt many 
po';i[ionsio[hcrighLof[hccurrcniposuion,EaiT prints nin crroreoinmcni.iiid the cursor stays where it is. 



L J5x 



Move? the cursisr as far to [he riglit as possible. 

Left 



Muves l!ie curaory?,v pi)sl[ions :o The lefL by default une, \rfix ts too Lirgc. EOlT prints an crnir message. 

Front 

Moves the cuisur as fnr to the left n^ possible. 
_. Down Left 

Positions the cursor jtist in ihe right of the richtnuist eicmein wUhin the iihjcft uj die left of [he cun^t^r, if 
dm object isof pn IHTYPE L 1ST. Visually, die cursur mo^cs left over one "close bracVei'. 
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0** Down Right 

Posilions Uic tumor jusi in dtc ]c(t uf die (cfmiosi cicmcni i^uliin ific object lo ihc rrglu of ihc cursof, [f 
UuiLobjcci JsofPRIHTYPE LIST. Visunlly, [hccufsjrmovcs ri^Uovcron<? "iipcn bracket'. Iflhccuiwris 
bUiClcHofancIcmcnnhJlisnotuFPRlMTYPE LIST. EDIT prints an error message. 

D Down 

Kquivak'nt [u DR. 
IJ« A Up Right 

Posiuiins ihc ctiT^or just in ilic nslu nf the t)bjccl Ihc cursor is currouily within. D-ics soy7x limes, by 
dcn>ulL unce. 

"t ^J Up La ft 

I^usitTons ilic cuf^ir jusi to Utc left nflhc object [iic cur^ir is currcnily *ith]n, [>jcs si>7r.i limes, by doraull 
once. 

U /Jf ■ Up 

MejiEical If) UL, 
S o*i«' Sflarch 

Diicsadepih-fim, IcQ-firsi [rec-wjlt, (i,e.. Tcft'toright) siartirg wkh the objcci ui ihc rigbt nFdic cursor, 
until the cursor isjusttoihc right of an object siruclu rally cquji (i.e.. =?) lo itsaigumcnL An occurrence of 
llicobjccE wilTnotbe found iFi[ is inside anything nol of PRlWTYPf LIST. On failure, the cu raj r docs nol 
move. I flhe argument is omitted, die fnsi object scare hcj For is used, 

5R ofijeci Search ftight 

SaiTfc 3i S. 
SL 4^yfl^' Search Loft 

Same as S, but the iree-waH is depth-first, rfglii-nrai (i.e., riglit'io-Tcft} and you end up to [he left oF ihe 
object for which you were searching. 

3,2.2,4. Prinlrng Commands 

The Empty Coinnand 

■iTicMnLFdltor 3-2 
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CiiLscS (he nortn;i1 \tmpcrs,ind prim" Id be done. This 15 principiilly u^cUi] when yuu ;irc in 'silcnl' inL»dt: 
wc ihc Vcninmand. 

Ry ihc way, an 'cmpiy' Ci>mmand is lypi^d by typing ESC ^UhoiH hiiMng ijpcd any visible charncicrs 
hcfnrc iL 

"" Print 



FPRTNTMnor^impcrsnnd prints') ihcnbjcci m ihc righlorthccurwr, 
PU 



Print Up 



FPRIfJTf^ [he [jhjccE The rur^or is in. 'Hiis h ^inil;ir m doing a U ;md then a P. ,ilihmi£h iho cursor \<. not 
mi wed. 

^^ Prfnt Top 

PPniNlsihc whole objca you hnvecpcn. 

Verbosity 

Toggles [fic vcrbosUy mode bciwccn "voibiw;' (mosi mmmands cnirw ^iinpcrtind prinitng) iind "silonf 
(prm[ingor^ny 5i>ri is done only when some ciphcii phnl cominand is used, or when jin errur occurs). The 
nirrcni suile of vcrb,isJiy Is iheGVAL of F- VERBOSE. 

In siicnl mode, ah^ilujely nothing is primed .iftcr e;.ch cninmand, nul even ucw-Iincs or prompli. 
lUiWfvcr. normal Mni. evjiUiaiion siiH eausK nurr^wi Mdl priming. 

3.2.2.5. Editing Commands 

^ ^ ■■■ Insert 

insens all icsiitgumcnisimmediaicijio die righi of ihe cursor- None of its argument are cvahuilcd; you 
i:u\ insen onevnitpaied fOPHs wiihou[ using OUOlt. Hic t:uiv>r ends up 10 ihe right of ihe laai object 
inserted. 



G flai . , . 



Get 



Same as 1, btit lis arFiimeics arc evalunicd. IT115 is useful in conjunclion with the X cummond (see below), 
CnbsTij objects UJ ihe right or the curror. jnserrs them into a newly creaicd object of TYPE lypc. deletes 

ilim from ihc original simciurc, and Inscns ihc nc^^'ly LTcaicd object in their place. In oihcr wurds. Si 'insets' 
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ihc appropriate open and close brackcis for type ai ihc cursor and /U objects to the righL 

Hy dcfauliyiiiaone. sype isllST. An error menage ts printed if^jf is larger ihan die number oFobjecis 
!o [he rrghi of [he cursor 

llicrc fs mi way lu di reedy insert or delete single pjircnihescs. bracltcis, etc., using EDIT. In^tcjid. usclC: 
(secbclowjiorcmove paifsuf brackets, jind I: ro insert them. 

I* indk-aiftnatom neH-iffUdur? Imbed 

Imbed Tnoks for all occurrences of indicator in ncn-siniefure jnd rcpkiLCS iJicsc pccuj rcncci witli objects 
Uiken and deleted frimi Uie right of die ciii^tir. It then inscns die fcsuIl 

ffonly 'feyi-sfniciurc k gi\ci\Ahc i'ut/cnror IS lU^^ AlQH '. Jf LJicrc i;rcn I cmmgh objects to Uic rigluof the 
curs4ir 111 rcpLicc each /"iftfl^rfr, rcin^iiiing indiLEitiiis arc left unioudiod jiid a wurnrng incssiigc is printed. If 
no indicnois \irQ fciupid. the new stmciure is inserted, but a v.-^m'ia^ messngc is printed- 

!• is gencriTly used to insert ctne or more structures Inio anoiJ;er cumplei structure in one uperjtiun, 
insiciid (if several. Korciample; 

<SET X i <12 .V» 

I* <COND {<NOT CLEHGTH? .V 11» •)>$ 

<SET K <CO«D (<NOT <LENGTH7 .Y 11>> <n .f>)> I > 

pLiccs a protective cundiiiunal ^irtmnd an HTH to prevent m uut-uf-bounds cnor. 

^^ S^u^ Insert into Group 

inscns miu a group. IG is similar to 1, but assumes diat Uic objea you arc in is a group <as produced by 
GROUP-LOAD}, Arguments to IG which arc not ATDHs arc inserted as in I, Objects which are ATOHs and 

whichhavcaviilucinscnafORM which DEFINES. SETGs. or SETS the ATOM JS appropriate- ITius. to add a 
new fi:ncti^>n T to a group G. one could type 
GSIG FSQS 

* f'^ Kill 

l3clctes7?J objects to die right of die cunitir. T^rfaoTts lo one. Negative ^/j causes deletion to the Icfl of die 
ciifsor 



C any 



Change 



Chan gcs d^e one object to die right of die cursor to Its single argument, fXies not move fhe cursor. Does 
not evaluate its arBumcnL C is more cfTicicnc than R plus 1, 
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C: rvfff.-j/ofl^ Change T^pe 

Ch;mg« ihc [ypc ofobjccl lo tiic righi orUie cursf>r in type. Aiicmpis 10 du srimcihing rcasi^niiblc for 
c^cry Ljpc ch.ingc. If you icH it to change y STRING m a LIST. yiHi gel .1 LIST uf CHARACTERS. If you 
.incmpt :u change a ^Emciurc whusc clciricnis jrc iilticr Uian CllftRACTERs and STRINGS lu a STRING, you 
lAiligoiaMUL error. 

it: Kill Type 

Dl-Icem The brackets .nmitiid Lhc obic>ci lo [he rifihi of Uie cursoi. Le^ kills ihc objecl and insons iis 
ekmenLs mtii Lhcairuciureof \wliieh jtwaiapart. 

SU iiew old Substitute 

'llic SuhMimie command Ukes two arEiimems. All iiccurrences <if r^^/ from lhc curreni locoiiim lo iljc end 
[if ihe (ipen ohjcci tacmally a ^ciirch'rifibt is done) arc replaced by ufw. Once ihe seanrb for oU TalK lhc 
nmimaiid icmiimilcs. iind (he number nrsubsiiiuUniis performed Is printed ITie curair 1^ lefi afler die fast 
iihjcci rcpTKcd. 

^ ttft"" Transfer 

SETs die jVdw 10 lhc object in ific righi uf die cursor. X can be used wiih K and 6 lu move thingi around 
wiihin (he object bclnfi edited. 

SW Swap 

Swjfps die lu-o object; 10 right ufdiecuTSor leaving die cursor poinong alihcsamc object Tbc efTixt is lo 
move The cursor ^md ibe object \i poinis ai one objeci lo Lhc righl. Repealed SWs move cursor and objca 
lunhcr and runlicr lo die right 

3,2-2.6. Macro Facility 

M macro Hacro 

Takeseidier J STRING orMjmeibmg which EVALs lo a STRING and pcrliirms all ofdieco^nmands m the 
SiPlNG. Ktir complcic jissurancc ibai >our conimands will be done properly, pui an ESC bciwecn 
cuhimands, 

IT j^' macro Iterate 

Hiis ciimmaTid (also called DO) takes sfij: and inacnj eis if an argUTTiCnl m H. TTiis cumm;ind will loop 

diioiifth lhc HwcwTtJE limes or uniil an error isgcncraicd. When die kcraiiun end?, lhc user Is u>[d how many 
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CO mplcic passes travc been m^cof the macro. 

\n hmh of Ihc above comm;mds, if an EDIT error is gcncnicd. Uic 'uncm wilj be icnniiiaicd, and Ihe 
macni <LKlf wi!l be printed. *im an amj* pnintinE to ^c offending command, iTie cursor wiU remain at the 
place where the tast legal command left II 

ITtc SU cnmmand is. InEcrnally: 
DQ • -S o/JILSC nfivS- 

3,2.2.7, Cursors- 
Cursor^ drc U«::.tionsm objects being EQlTed. In iiddUum to [lie main cun^iir, which rs ^hcrc editing 
cicciirs. <i[hcr It^aii.ms (also called curr^irsj m^^y be remembered, iTie maiu cursi^r may be muK^d u. juUHher 
cursor in a smgle operaliim. poioinJaHy saving many motion commantfc. In hifge FUNCTIONS cura^ni may 
also reduce confusion by distrnsulshing amimg scicnil similar areas of code, 

UC 

Use Cursors 

Jlie PACKAGE for dealing wiUi cursors is noi niormally loaded in .m inJEial MlK , si [he UC commrmd loads 

hand mates [he cuniorcommandsavjilabfc. I"hc PACKAGE loaded L^ "-CURSOfi". 

CU otom „ 

^^ Cursor 

CU Mkos ar^ ATOK argumcnE and S£ T^ Uie ATOM U> an object of type CURSOR, which Lrics to be clever in 
the event you change the objecL Also, if you use die X cummand t(» name a sub.^imcEure and then move copy 
il with G or I, [he cuttofs in thesifhsiructure will foirow to the new locadon. 

There are some restrictions. Cursors in empty LiSTs arc okay but they will not folJow the object lo nc* 
Kcaiions. Also this following- fcjiure is elective un^y at the first G or T after the X. To move the substmciure 
again you have to X again, 

I • is wmcwhai incompatible with CURSOHs, Cubits in Imbedded simcturcs will Sometimes disappear. 

GO cunar 

Go 

GO tafccs a ri^rsi,^ (normally the LVAL (ifan ATOM previously given as an argument In CU) and GOes la that 
position. If U^e curicr h iHcE^I (not in the current Ujp'levcl structure), an cm>r message will be printed and 
yuu will remain in your previous position. 

KC atom „ ._ , ^ 

^^ KiTi Cursor 
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Kill the cursor assigned lo aropi. 
PC ■ Print Cursors 

Prints all cursors in ihc sirucuire to ihc righi of (he Train cuttot, 
Pfc Print Al 1 Cursors 

I'nnis.ill cuRor^ in ihc currency open stmcturc. 

3,2,2.8. Breakpoints 

Bt preittcnie ai\y ,.. Breakpoint 

Inscrti a brcakpolnL \iroitLid' Die iihjcct to ihc right ur Ihc cuiHir Titkos jiiy number or ^ir^iinicnts, 
Suhiijcqucnili'. whenever tli;ii uhjcci woiilJ ha\cbccn c\aliuued. un" in^lwd hit a brcjikpnim funciinn which: 

L Hvjilujilcs/irfJ/tviJf. Ifilic viiloe is FALSE. evaluaEluncoTilinuesii^ iFUicre were no bcenkpoinl. IT 
ihe ^alucisno^'FALSE,or ifBK wm given no jirgumcnis: 

2.Types--BREA)(**. 

2. Vot each argumeni jfter [he TttsI iUm you gave BK. iype5 
Qt$ - F-VAL ofarg 

4. Knlcre LISTEN. 
Vi»u conLimie by iipplying ERRET loanc^irgumcnujusio^ from an ERROR: Lhc argumcnf^ value i^ ignored. 

Ilreakpuinis arc implemenicd by inscninfi a BREAKR (j PRIMTVPE LIST with APPLYTYPF FORM) 
which consists of Ehe funcuon BREAKR and aigjini^ni^, ineludjng Ehe object breakpoimcd. A breakpoint 
prinu as a glyph similar lo ihc cutsoeI 

%abjecl 
iruie ATOM SHORT-PRINT is assigned and FALSE, ihejicutal BREAKR LISI ispdii[0(L 

Hie breakpoint foncLion rcuirn^ EVAL of ihc thjng il i^ pm 'around.' and ihere an;: cases where Uiis docs 
MiPi wort, flierc arc always cqLli^ jlem pLiccs llial do wort:, 

t, lireuk point on [he (\n\ clcmciiiof.i FORMdoc^ noiwork. Put iuin ihc whole FORM- 

2. Hrcakpoincon a LIST which is an ^irgumeiu i[) a COHD d{>es doe work. Put ic on (he firsi FORK Id 
the LIST. 

UA predmie any ... BreaX After 
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3in,ibr 10 SK. bu, pu^ ,h. brckpoinl ojl.r the ,>bjccl ., U)= cursor. I., .cli™ is lite tll.n of HK ^ccpt OiaL 
iho brc^ik occura after the Dbjcci it is un is EVALed. 

ITiis sort ofhrckpoim prints (iHo the ■bcn.ro' son, bti. with ihc jlypl, :Flcr .he object broken: 

-11.= prcJic.,,. f.>r a BA brcakp,>im ™y cbccfc the uloc rct.med b, F,>/AL fi=r U,e objce. the hrenkpoiiK is on. 
llTfS valucisjiiKigncdby BREAKR Lo ihc ATOM VALUE. 

KJ 

«ill This 

Removes iho hrckpoin or any ) Tmm Uic objai lo ihc riglii (if die cursor. 

KB 

Ki 1 1 Brgakparnts 

Hcimivcs iftl brcrikpHHnK in ihc currcn[|y open ubjcci. 

3.2.2.9. Edit Monitors 

n^ctc are several aimmonds in £DIT which pmvldo d .jmpic InLcrfacc u. tiic "HONITOR- PACXAGF. 
ntcscd1o*pLK:ing of monimr^nn Inferences to ,,rmodific,',li.ns.rLVAUiu»,i[c^^^^ 

For a more complete dJs:u^j(m of ihc use of mcinJio;^ sec scciiufi 3J. 

Use Monitors 

The PACKAGES for de;ijmg *.:3i mnnlL-rs arc m>[ normally leaded in an injiijl Mnu a> the UH command 

toads (hem .nd makes th. three e.mm..ds f.ir ereatmg nmnu.n. .bic, 11.. PflcXAGEs loodcd are 

-MONITR", which is the Ecnen-f monitor PACKAGE, and -EWONIT^ which L. the imerf^c between HDIT 
jnd"HONrTR-. 

Rtf flfpf^ predicate any . . 

ftaad-nritfl Monitor 

Tlie most gcncraJ :ype of mo.m..r that can 1x set is . read-write monitor. JL will catch any refererK^ 
attcrnpt to modify the LVAL of th. ...., ^ificd. I7.e re.;ricdon. on ptome^ 

momto.^ «i;h the addftion ih.c a monitor on .n LVAL must b. pbc.d after thai LVAL ha. become 
ASSiGHEO?. 

■nie s^ond. third (and so nnj n^um.nts a. Rtf are the same .s (hose fi.r BK. ITie p.«y;t^,f may b. 
dependent on either the nes. or „ld .alue of the variable: Jliese are available as d.e LVALs of NEWVAL and 
OLOVAL, respctlivcly. 
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When a n^onifor is [riggcicd. ti prinu \hc type iif monlior, ihc variable being monitored, aud :iny Oliver 
infomirilion requested by Ihcu^cr. and then calls LISTEN^ 

A muniior prini£ as yet another gtyph' 

whercmLFmis ihe ATOM being monilcircd. iind ofyernsiJie (ihjccinn winch dicciill lo MONITOR is ptaccd. 

F^ii monitors arc iihjccLsoftypcBREAKB, Lind thus they are Vil led h^ the same cum mantis thai kiU nurmal 
brcakpoinif: KB.KT, and soon. 

RH alon\ predicate any ... Read Monitor 

RM is anjilugous lo RW. bui Is only triggered by residing iJie variable, 
WM a/ofjf predicate any ... Write WonUor 

WM \^ annlugfHJs to RW, but ~rs only uiggcred by ^riling the variiibk. 
3,2.2,10. User-defined Edit Commands 

li Jti possible 10 add iiscT-dcfined ctimmands lo EDIT. ]"hc \aUieofEDIT-TABLE slmiild he;i VECTOR of 
STRINGS (commands) and APPLICABLE objects. EDIT will sc;ifc!i EDIT -TABLE befurc ii5 own cuiiimand 
i.ihic, Ifa match is found. Lhe APPLlCABLt will be applied [o three a^nnicn is: the cimimand siring, Uie 
LOCATIVE conLilning the Ucm ciirrenil^ being edited (die immcdi;iiely sumiunding objcci) and Uic position 
m that item. 

Note thai user-defined commands Should noi be added escepi by constructing a new value of 
LDIT-TABLE from ihc ciimmands lo be added and Lhc old Value, OthetwiSG. any eitisling userdefmcd 
cummj^nds may bo lost when new ones are added. 

The Monilor commands described in SceUon 3Z2.9 are cffecUvcty 'insialled' userdefincd ciimmands- 
Ihey add elements U) EDIT-TABLE whcnioiidcd by da e UM command, 

3,2-3- Exempfes 

3.2.3.1. Simple Editing 
Suppose you have the FUNCTION 
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^FUNCTION f[^A) <£7AL .A>) ' 
IS Lho g|(hhal ^;i[uc m'Uic ATOM 3 IMP. And i<m wish to change aio 

#fUNCTION fC'SlND" B A) {<£VAL .A .3> ,A)) 
H5ing EDIT. Ilic lulkii-irig c^jinipls duos just ihiH: i[ inctucics doing the cdiLing and .ippiyin^ ufSIMP coan 
.irgumcnL Consnlc inpm and imtpm jrc ?|i<iwn bckiw aaciT^ as tJjcy wduJd be In non-silciiL mode. jCoasole 
Mputains'isL^ofdioMch-friictcrsiothclcfL of every S). Nuic ihur Uicrc is muhins in StMP which is big 
enough u> svnrranE use aian A. 

<EDIT SIMP>S 

#FUKCTI0H { I CA) CEVAL ,A>1 

DS 

t 1 ^A) 

I "BIND" B£ 

('BINO- B I 'A) 

3 .AS 

<EVAL .A ■ > 

i .BS 

CEVAL A .a t > 

URS 

^FUNCTION (('BIND" Q A) rEVAL .A fl> I J 
T ,AS ' 

^FUNCTION ({"BIND- G 'A) <£VAL .A .e> .A I ) 
L 2Z 

^FUNCTION ((■■aiND" B 'A) I CEVAL ,A B> AJ 
I: L:ST 21 

^FUNCTION {{"UlUO" B 'A) H (<EVAL .A ,B> .A}) 

<SIMP <* 1 2»l 

(3 <* 1 ?>) 

ffFUNCTION {{'BlNa" B A) I £<EVAL .A .fl> Ajl 

3.2,3.2. X and G Commands 

In Uiiscjianiplc we hjvcihe FUNCTION 
<D£f!NE F (X) 

<Q .X ID> 

<H Z3 <- .X !>>>! 

Flv appfying Oic X and G connnands :o ihe apprupriaic FOfiMs. we are able to swap rhQ FORM^ wjihin ihe 
FUNCTION. 
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^DEFINE F (X) 

<G .X 1D> 

<H Z3 <- .X 15>)1 

r 

<£DiT F>S 

1 

jffUF^CTlON ( I (X) <G .H 10> <H 23 <- ,X 1>>) 

RS3 

ifFUNCTlON ((X) I <G .> 1D> <H 23 <- .7. l\>] 

X HOVtRi 

^FUNCTION ({X) I <G .X IDJ <H Z3 t- .X 1>>) 

Kii 

^FUNCTION ((X) I <H £5 '- .> n>) 

PSJ 

#rUNCT10N ((X) <H 25 '- .X 1>) I ) 

G .MOVERS J 

ffrUNCTION {{If.) HH Z5 '- .X 1>> <G .X 10> I '■ 

on 

.MOVER! 
<& .1 10> 

3,2,3.2, Unconditional BreakpoinlE 

[ii inscri itiici"idi[ioj];il brcjikpinnis niio [he FUNCTIOH in ihc ncM CAinnpIc, do ibc Folluwtng: 

1. Define f TB :iniJ icsl Ihc rUNCliON a fc* limes. 

2. Hnicr EDIT and position ihe ciir&>r iipprGpriiiidi'. 

\ Inscn [he brc.ikpoini. 

-1. Leave EDIT and nin Uio FUNCTION agjin fof [he value 3. The bTe;ikputnL is c^ciriacd S lime? 
diinnf [hi* run. 
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iOEFlNE FIB (X) 

<CONO (<L*T .X L> ,X) 
F^g (ELSE C+ CFIB <- .Jl 2>> <F1B <- .X U^S 

<F1B 5>S 

5 

'FIB 8>J 

a 

<flfl 10>S 

55 

CEDIT FI8>S 

RS% 

^FUNCTION ((K) ■ <ft>) 

BK T ,^IQST 
<FIQ 3>J 

••BREAK" 
,X = 3 

LISTENING-Ar-LEVEL 2 PROCESS I 
■■EflRFr r>s 

■■BREAK'- 

.X ^ I 

LISTENTHG-AT'LEVEL 2 PROCESS 1 
<ERRET r>l 

'-eHEAK-* 

,X = Z 

Ll5r£N[NG'AT-L£VEL 2 PROCESS 1 
;ERREr T>J 

"BREAK*- 
.X = 

LJSTENING-AT-LEVEL 2 PROCESS I 
CERREI r>S 
*"BREAK-- 
.A - 1 

LISTENING-AT-LEVEL 2 PROCESS I 
:erret T>I 

7 



3,2.3-4. Conditional Breakpoints 

WcconUnucFmrn U«c previous example and dcn«,,flraEccondJdon.lbrcakpd 
I.Enter EDIT and kill [he breafcpoin[rmm[hepn;vimis example. 

lPiJSi[i,>nLhecu,M)riindinseria™didona!hr.afcp.>intwiUia^rf/f^^^ .X>. 

3- LciLVC EDIT and mn the FUNCTION .igajn for the value 10. 
^^ Hmcr EDIT ji>d rcmuvc Uie breokpoinL 
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<ED1T>S 

i^TUNCTION {(X) I !<&>) 
KBSS 

#FUNcnoN {(X) a <*>) 

HK <CI7 ,X> <TIHE>SOST 

<Fla 10>5 

••BREAK*- 

<TIME> = 14.79-1536 

LISTENIHG-AT-LEVEL Z PROCESS 1 

.xs 



<ERRET T>S 

••BREAK*' 

<T!ME> = 15,2&2382 

LISTENING-AT-LEVEL Z PROCESS 1 

.XS 



<tRRET r>J 

"BflEAK** 

<T1ME> = 15.716037 

LISTEWING-AT-LEVEL 2 PROCESS 1 



I 



:iiid so un. Hvcmually wc reach [lie lasi brcakptjint, and rccnicr EDIT 

<Eon^s 
s 

f/fUKCllOH ((X) ■ f<&>) 

KBSQST 

<ERRET T>S 

5b. 
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3.2.4. Edit Command Summary 



I 


none 


11 


none 





QIJX 


OT 


i\ane 


Q 


none 


QR 


J^ 


V 


none 



lypc [iu[ short summary 

lypc out ihis summary 

Open (ibjcct or liic value oFjn ^[oiti 

Open [ibjccL HA ihc cursor 

Quii ;inJ rcmm lo Mdl 

Quicnnd Rcuy frame 

UiagEt' Vcrbosiiy 



Mi^vcmcnr QimmaTids 



L 


.^ 


JE 


;?-* 


U 


P^ 


H 


nane 


9 


none 


F 


none 


UR 


Jix 


D4. 


^ 


IIT 


none 


Fdiring rnitimnnH^ 


1 


uny..^ 


U 


tyftejix 


I* 


atvm.objecl 



re 



any^. 



5U 


SfSJiM 


I 


atom 


G 


flny.,. 


sv 


none 


c 


^nv 


C: 


!^e 


% 


f<x 


K: 


none 


Ssirch Cmnmanffs 


3/SR 


qSX 


SL 


sax 


M;tf:m Comm^nth 


'[ftf MDL Editor 



move I eft fix objccLS 
mmc K iglu yti objccis 
mti^c UpyTjc levels 
move Dirwnunckvel 

nunc Ut hrom of object 

rn<i^c Up;7jrobjccrs,mdUi(hc Righl 

inmc f>iwn77i (tbjccb; andlo Ihc Left 

Up rop-giiioihopLiccjiiu were aficr you dido 



Inwrt argirmenis lo Ihc rigfii of tuFSor 

make neti n objceis iiuo a lype 

[rnbcd ctfinmand: replace ull occiLrrcnccs of j/f//jf (default ') 

in objEci *[di objecB lo riglu of cuigor 

Jnscit inrii group 

SUb^rJEuie fiejy for 0/1^ 

iCL Uic auim lo ihe ubjcct tn right of curror 

Gei FVAL ofaigumcnis. insert 10 righlofcursor 

SWap Ihc two (ibjcccs to ihc right uf cursor 

Change Ihc neit object loarg 

Change die lypc of die ncAiobiecuo(vpfl 

KillfdeTcic) Ihc iLejn_fij ohjccis 

Kill (remove) (he 'briLckcLs' around the nejii object 



Scun:h (Right) until match 1 = 7) is found far ofly 
Sciirch Left as above 



X2 



mcni 
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M string 

IT /DO Hi-Mnns 

Krimire commands 

P none 

PU none 

PT rto/je 

Cunnr commands 



UC 

cu 

GO 

PC 
PA 

KC 



none 

alotn 

cursor 

none 

none 



l>chngalnG ciLmm3nd5 



BA 
KB 



pred.iJny.., 

pred.aiiy... 

none 

none 



wccxiip the aring asiriypcdio EDIT 
I Tcracc ihc cxccuic itrhigjix limes 



PPRINT the next objcci 
PPfllNT Ihc ncxT Upper level 
PPRINT the whulcobjcci open 



Use Cursors 

sec anrni w CUrrcni curair pisiiion 

GO 1(1 Lhe speeificd cursnr pi]siibn 

Prim CiiEsnr posiiums in Ihc ciirrcm iibjcci 

Vsim All cmsitr pi>siLit)ns in ihc hip-lcvcl ohjcci 

Kill thcCm^irr Ji^iiigned coihenTom 



sei HreaKpoiiil uv ncxi objcci: iF/;rfi/cvalujics to FALSE, 

dnn'i break; rest of ,^rgumcms arc printed oiil ai break 

SCI Urcakpoini AfEcr ncit objeel 

Kill :ill llrcakpLimis m iiperi object 

Kin lliis bronbpciml In [he objcci la lhe nghi QfeuisOT 



UH 

RW 
RM 
UN 



none 

i(tQiu,pre(Lany... 
0ti!!ijjred.ony... 
gtoinjtred,aiiy.- 



Use MoniioiS 

set Rcad-Wnic monitor on a/om 
SCI Head Monitor on atom 
SCI Wriic Monjior on atom 



»f and tS return you lo EDIT from a higher IcveT. 

The ATOM * may beuscda.'^a^Jargumcn[ whose viikto i^ Lhcbrgo^i legal value Tor ihnt command. 

3.3. Debugging and lhe Interpreter 

Ik rorc continuing ihc diseiissiun or [he vjirioiis pjKkagcs that ^re irsod in ihc debugging ofMnicode, we 
will expand on the discussion nf ERROR, FRAME, (and Siion) in Chapter IfiofPJ. rusiirrmari/c ihni chapter, 
whenever an AT OH is boutid or a FUNCTION or RSUBR ii HCALLcd in MUL, informaiion i^ added lo the 
coniul Slack, This informalion. noTmaMy 'invisible', may be examined using lhe Tunciions described in s 
prcviousscci!on(FRAHE5, FRfif, FRLVAL,cu:.). An mvociJLJon of ERROR puis MDi. inioa LISTEN-ljkc loop. 
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J8 IlicMDU'riigranuningKnvLronmcnt 

Successive tBftORs Slack up and ire icnccLcd in Uic LISTEN [NG-AT-LEVEL mcSM§c pfinicd whenever 
iHROftiirLlSTEI^iscaliei 

In jddiiion to bdn? e\ainined. The Jiiacfc may be mudlflcd its pan of the debugging procedure. For 
oniimplc. die SUQHsSET jnd LVAL ta):can opiional second Argument which may be (among several pussible 
TYPEsIa FRAME. EVALing 

<SET ?; 10 CFRM n» 
*oiildchjngc [he LVAL ofX in die ncarcsE binding lower in die slack dian die FRAME ft FRAHEs lower than 
Uic mist rcccmcjl] lo ERROR tir LISTEN. Similaity 

<LVAL X <FBM n» 
mvmnci \hc LVAL in a pafiiciilar f If AHE. 

ITie mosi cinnmon use of die Mill interpreter m dchugginE is Ui invoke die SUOR ERRET. Widi no 
.irgunieuK It driipSiilUhewiiy 10 llicboliom of the stack aiidtlieiu-dls LISTEN: lisaysn gtvc up'iii'though 
side etTccK are nol tmdunc). More commnnfy, ERRET is given a single iifgument. which causes (he fasL 
invticjiitin "f EHHOfl or LISTEN to reiura thai -irgumcnL Kor example, suppose a program ctmEiiins ,F00 

but FOO hasnoGVAL. MlH would rcspund 

'ERROR* 

UNASSIGWED-VARIABLE 

FOO 

GVAL 

LlSTEN[hJG-AT-LEVEL 2 PROCESS I 

You could give up. iiying <ERR£T>, but it is often more reasonable iti ay Oh, yes. FOO was supposed to be 

lODQ, and Uien 

<E«R£T 10Q0> 
Still bcueris 

CEBRET <5ErG fOO 10D0>> 
which win prevent fijiure EflRORs from the same cause. 

!1njlly. ERRET may be given a second argument of a FRAME, whieb means to return die first argumcni as 
the value of die invocation of [hai FRAME. In the previous e*iimple. die programmer might look at the suick 
{with FR&or FRAMES) and see 
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1 
I 
3 


GVAL 
£VAL 
£VAL 
EVAL 
£VAL 


[FOO] 

[.fOO] 

[<4 .X .V ,FO0>3 

[<LOStR .A .fl>] 

[</ ,GOOD-GVAL <LOSER 


.A .fl>>] 


7 


tVAL 
LISTEN 


[<WIHNEB i.O 2.0>] 

n 





Aficr siimc ^(iMghL he m»y just su> Well. LOStfi npparcnilj nocds wmic dchiigging, bur for now I'm 
iiiicrcsicd in WINNER', in which Ciisc he Ciir 'Mc' arcasoniihic rciiirn from LOSER by typing 

<ERR€T 342.0 <FRH 4>5 
'^\M\ reiunis 342. OeiTCiIy. IS though LOSER had rciumcd IL 

Morccixiiplcx crTi)Pi.nreaniicUni«mincdirncult lo fix, rcquinug Uic use of EDIT (jil least). In LhcabtWC 
i'^;iinplc. Ihe prngr.imnier nitgJil decide todchug LOSER uFicr \y\\. Ilierc arc two wjys lo go al^mi Ihis: Kir^L 
L( [he problem is h>CiiH/cd, Ihc FRAME iisclfma) be edited [whieh is lo^iy, ^e co^J/r'/Wofihe FRAME maybe 
I'diied). Chiingcs will show up in the FUNCTION from which Uic FRAMEji cniueni^were derived. Tlie newij 
canceled FRAME may then bcRETRVcd. i-or ci.imple, 
<eDIT 3>J 

QRi 

Second, the Function iTSctrmay be edited. In tiie process. U mav be so changed Ihat Uie FORM whkh 
i.,niscd the ERROR no longer even crisis. Often, the casim solution \5 to rciry the invocation uFliie EDlTcd 
MINCTION froji] scratch: JnThiscasc 

<RETRY <fRH 4>>S 
As nlways- T)ic major raiiiclidji to remember is ^Itai sidc-crfcct? arc not undone by flETHY. 

3.4. LosdJng ancj Dumping 

GROUP-LOADandGHOUP'DUMP jrc used in load and dump JilesorMlJJ.progfjiins in such 3 way dial the 
<iinicnts«rihc file arc mode available inaMui simciurccullcd.-ii^rtup. Many oilier PACKAGES in die Mdl 
i'"virunmcn[ operate on or change groups: Amung ihem arc "EDIT", "GLUE'', "PDUHP", and ihe Mr>L 
ii'mpUer. 

GROUP-LOAD iind GROUP-DUMP arc almost as widely used a-T FLOAO .tShI way uFdcalIng with groups uf 
MtJi. fijncLions. Consequcnily, Uiey arc alread}' landed in moat initial Mi>ii. as pan. of ihc package 
■GBLOAn- 
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CGROUP-LOAO l}h>'Uiiht^:simis 

- 
^llc-niimf:sfrfifs is tfni fitc m toad, 

;ruiiii-iftinif:iifom]s ihc name [(► ^ivc \hc gioup, U is iipLiony! iirnl by tlcfiiull Uic ATOM foraiad by PARSE of 
;hc first nnmcuf JiC ftlc tti krad, iTic gruup will be siurcd q^tEic LVAL of gmup-?Jtjm£ 

IROUP'OUMP Is ihe opposite nfGBOUP-LOAD. Ic outputs Ihc ^riuip fmm [lie Mm to the rik ^itcn asia 
fini iirgumenL PuiicUons uncfiLingod since the last GflOUP-LOAD iirc copied From ihc origiriiil inpuL file. 
Kuncuuns thai have been edited ,irc uLitpui using Uic nmiri^c given JSlhC third ar^iimem uiGnOUP^OUMP. 
(GROUP-DUMP iHi-iiam^.-suwe 

k ftf- bri-ukpi}iiii5?> 

ite~u<!Uic:siriiiiiis Uic unly icquired nirgumeiiL hh Uie file to whidr Uj (HiipuiUie group. 

^r'outhn,iine:ali't'\ k "plitniiil, ,ind defaulL*! as H docs Tor GROUP-LOAD, butofcmirsc gives an ERROR if tlie 
^Liup doesiii airc.idy e^isL. 

,?rfl(j-rfKm>ifisbpihin:iL:f<iddcryulLsH) , PPfl INT imk^is me group cunu»ncd ND IN fumiul RSUBRs, in which 
:a3C hPRINC Is used. 

Hthbrtvkpoi)tli? is iipiiunal. by defauU T. in which c.isc GROUP-DUMP ^ills ^11 EOIT breakonliiTs nnd 
moniiuri in objects being dninped. Giving a fciurih argument of j FALSE loGROUP-OUMP orevents Uiis, 

On Uie surface. It nppeara [hni Male hnppcns in the procea oFlo-idins a file and makin^j ii into a group, 
I luwcvcr. a grcai deal of infonnaiiun aboui ihc group has been stored away m Lwsoci.iiions fur later use. 
5omcafitiisinformaoon i5ufuse to the MDLpmgrammcr. 

l,Onana';^ix:[aMon between ^niup'iiwi'pand Lhc ATOM CHANNEL is stored a LIST giving Jiic name 
af die frlc thai i*di GROUP-LOADcd to fofm '.he gruup. Hi^mming ihis nsstx:iauun before 
GROUP-OUMPrng has the clfecE of mating ihe cnLirc ^roup be uLitpul frtun cute rather than 
ciipicd \rom theoriginalsuurcc, 

:. On anassociauon between ^rmi^r-'wnic :ind [lie ATOM HAGTC-RSUBR die ATOM T issmred if the 
irnup cunLiincd uny RSUQRs m fjsi (NBIN) fEirmaL H is this aasociiitiim which is used 10 
deu:munc Ihc dcfaul[;)';'Fr-'vJumPC in GROUP-DUMP. 

L iTic OBLIST path in effccLitjny [iine during the lu^d is available. 71: i; original patli is stored on 
^n ussjiciHition Iwivtcen ^T^'Uii-uiimc ,ind [lie ATOM SLOCK. Within the group, thep.klJi changes arc 
Sftffcdinanas,sociationbeiweenihc^rnupRESTedLoihepOLnu>fchangedndLheATOMBLOCK. 

4. [f the second dement ii\ d FUNCTION dciinitiun is not an ATOM, the actual FUNCTION name 
gtitien by EVAL of Ihoi elcmcnL is sttjrcd as ^n ussuciaiiiin between the original clemcni and the 
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ATOM VALUE. 

5.1>ic Uicariiin of a fimciicm \\'irhin ihc inpm Hie Is Slotrd :i^ a LIST wf the starting and ending 
"fFsc[s(jii chiiriiDCFsl iif Uit funmon, unJcr iin jsscKiiiiion bciween 3 localise lo the GVAL of [he 
- * f UNCI ION name jiid Uic indienmr DEFINE. Iliis associjiiun +s removed b^ EDIT land other 

cdiLor^)Li>indic:LicLJ)iiUhe FUNCTION hiLS been changed. 



. IIS 
lie. 



Hicre arc additionallv Jicvcnl swirches ihsi alTcci the opicruiion oFGROUP-LOAO; 
-KEEP-FIXUPS 
II iheLVAL ofKEEP-FlXUPS iS inie (and GROUP-LOAD binds U Ihai Wiiy diirinE I('-idin£). Uie Hxup? of 

HSUBnsGtfOUP-LOADcd *ill be kcpu 
.EXPFLOAD 

II iJicLVAL iiFEXPFLOAD iRiruc, FLOAQs v- ill he expanded. I^i.a i^. die ^ibjccLs in the Tie FLOADcd * ill be 

,ntdcd[i> Uic group in pt.iceoriUcFLOAD ITiclniliiil filing iifEXPFLOAD ^sy FALSE. 
-EXP5PLICE 
]e J I ilif LUAL of FXPSPLICF p true, any objcci^ rcnimed wltliin SPLlCEs will be Insencd Jircclly into the 

ji I nop iis described above. Ilic inUiiil scumgofExpSPLlCE is a FALSL 
b 

3.5- The One-step Debugger 
d llic Mill One-step debuBger albws ihc user to siep UimuEb [he cvjluarion of an>' Mdl expression one 

■ipcrjilion^ iA a Lime. Hciween step^. vjrrahlei^ mj^y be examined or chLmgcd, finic^ons edited, and so on. 

lilts IS possible because ibe debugger runs In n difTcrent Mm. PROCESS lh:in Che cxprewlon being iitepped, 

,i"d;iMDI PROCESS may lSTEPaoi)iher|3|. To load [hciJchiiggcT <USE "DtBUGR">. 

IV Mj^. Debugger can be in any oF three states. En the inJiiai suue, OFF. no urc-sicpping iiet uj^ and tl^e 
1 h^huggerdiKS not listen For any special i a lernipt characters. '!Tie fJcbuggeris, there Fore, completely inactive, 
IK ijping <DEBUG> to MDL you Icflvc the OFF state and cnicr ^c READY state, b llic READY state no 
-iiii' Mcpping occurs, however the Debugger dora listen for interrupt ehar.tcicrs. My typing the inierrupi 
I li.iNicicr tB< you enter the ON siaic and onc^tepping begins. In addition. If you were stopped :ita]i EDIT 
iiji^ttpoini H'hen iho tB svas typod, the bmakpoinc wit] autornaticulK be cuited and evahiaiion contimied in 
Uh- oiiL^siepping sEat^, 

While In the ON stale, the Dchufiser will priMreed through [ho cxccuiKH) uf any MnL objects tine step at & 
III"' In essence, the Debugger siupsjtisi before andjust after every call tu EVAL, ALcach step ihc Debugger 
-■tH Hulicoic its current condition e^ follows. If TVAL is recursively entered nt IcvcL n. wldi InpuL abiccr ihi 
I ^Uliivwillbe: 

Xi Loading and Dumpmg 
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)F> object 
(^hvTc obJci-{ is .impcrsand primed). If EVAL [s returning fnun level, n. wiih rcsulL objeci. ihc display *lll be: 

FT< = objtct 
(where f'tyrcf is ctmpCTSund prinKd). 

nic Debugger will auip a[ cm:h such sicp and waii fur dircciiunf^ , Hiere ,^rc fuur iiucmipi ch<iractefs dial 
m;iy be typed u) pn-cccd further in die program; tN. tO. tR and tA. Thcj each Ta^e an opnonfll prefix 

arEumCTii ih.il server as a rcpe-ir counL 

tpi 
causes [lie IJcbugficrin perform [heiicM'iiq] of die curremcvnlimdon, 

c.inses Ui^ L-urreiu ifhjcci lu be amipleicly evjhi,jLed widuuil any niicsloppinB :md Lhen sUips ^Ailli ihc result 
i}( Ihjn L-salimlu»n- tQ Is uwftd for ilcppids ijver COND prediciiin d::n >ou know ^vill noi svtccEed- or more 
generally, uninicrcsiing pans ofii prugram. 

L'i ^imiliirC^rO. bin specific nj die cviiliuilijri of Ehcargurneiiili^i of jFUNCT TON, PROG, or RE Pf AT. Typing 
'A during iucli evdUiaiion allows die re^l uf the Hirgumeni list to he cuilujlcd wulioui one-siepping and Then 
5U)pS hefofc evaJuadng [he biwlj ufa FUNCTIOH. PROG, ur RlPli.T or returning ufii resulL 

a mosi cffced^ely used in a REPEAT or PROG bup. Typing ifl cauics e^/iiluaiion lis pn-cccd unul conirol 
returns lo ihe point in die body nfthe REPEAT/PROG at which tR was typed. It thus allows yotj to go oiec 
around n kxjp. ^ 

It ahuuld be nodced that, wlien ^tupped at one of these steps, you can ermine and mndifv prugram 
variables, do a FRAMES ur FPa. EDIT FUNCTEONs jnd set breakpoints, and in general perform any valid 
Mr^L nperaiions. Also, when you stop, dtc LVAL of die ATOM LAST-OUT will be set to the object die 
Debugger lasE typed ouLlTiis IS useful jfihc&pcrfomJCd by die Debusficr did not show a pardeu la r detail 

diat you are mterested in. 

Use the interrupt character »£ li) leave the ON siiilc and return to the READY state. Use the interrupt 
ehar^ier tgiolcaveciiherlhcON stiiie ur ihc READY ^late iiiid return to die OFF slate. When leaving the ON 
iiaie as dcs:ribed, the cACcuiiun currently being unc-iwepped w lU be finished in die usual manner. 

Tlie function REPAIfl attempts to fi^ any cirurs in die Debugger that yuii might happen to invoke. These 
errois are easily disdnfiuishcd since Lhey never OceuF in MDl's MAIN PROCESS. Therefore, you will see: 
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LISTENIHG-AT-LEV€L m PROCESS n 
(where n is not ]l PEPAJr Eurns (iff ihc Debugger and reiurns yoir [o ninning in the MAIN PROCESS (no 
longer onC'Slcpping), Itccauw REPAIR [[imsoff Ihc Debugger, ynu must du <DEBUGJ again ifyoii wish to 
try any rutlhcr cmc-sicpping, 

3.5.1. MDL Debugger Command Summary 

<USE "DEBUGR''>lu,tJslhc1)ebugEer. 

<DtHUG> nukes Uic l^huggcr ready. 

tB ir^mjone-sicppmg. 

tN perfonm ihe ;?rj/ jiicp of iJic eninputaiion. 

tO sieps C(]inplcEdy owrihc ncxL compuidijun. ihen stops and conimucs [mc-slcpping. 

Tfl cvnlujiiei Ihc nr^umeiu^ ofllie ciirreiu nbjeci [hen qops jmd ct>ntiniicsnrC'Sieppnig LhroLigli [he hod>. 

'R conliiiiiescvjiuaiion uniil you r^^ur^f lo this poinL. 

IE f/jjfaone-siepping. 

^Q 7u/W0fie-sicpping jnd makes ihe l^buggcr jmre/ij/j' (Uimcd oR)- 

^H£LP> prints a eommnnd nummary. 

CREPAIR>alfcmpt5rorcpairany DcbuBgcf terrors you mighiinvote. 

3.5.2. MDL Debugger Special Features 

Tlie following flags have special impon^nce lo ihc Debugger: 

,INDtNl-lNC 
i5(hCcLmouL][by ^hichio indent fur each level (by defauli 2 spaces). 

, INDENT-MOD 
The indcntiiu on level i& Ihc real level lafccn modub this number. 'l"he defauh is 10. Indcniation 'restaits' 
when level eels here, ifjoudan'ilikc ihis feaiurc, m.ike ihe number laige. 

.INDENT-DIP 
is ilic minimum amoimi of free space ru reserve on each line ihai indcniaiion musi nuL luuch (by defauU 20). 
Hicrcforc jiI level L ihe indeniaUon Is exactly: 
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;H1H <■ ,1ND£NT-INC ;H0D .L JNDeNT-MOO» 
<- <13 ,OliTCHflN> ,IN0£NT-01F» 

, OUT -FAST 

ifimc Lhc Dc bu age r will nLicsiup when leaving a level wiih n fcsuk. Ilic default is T. 

, OUT-UNIQUE 
jfhinh Lliis iind prcvjtius flag arc [nii: iucccssivc 'ouis' ofihcs-imc ilcm will n(j[ ho displayed (dc fan Its TO T). 

.iELF'FAST 
if true ihc debugger *ill not suip when cinering a level with an <>bjcct which EVALs lo itself (cr, ATOHi 
Fixes, strings). ITic default vsT. 'Ihc display wiU be; 

n : object 

.fORM-FAST 
friTiic Ihe IJcbnggcr will notSUi|> when cnrering n level wiih a(i> uflhc '^harl' fORM^ (eg. <>. . FOO, ,BAR, 
'ftNVnilNGl. Iliedcf.mlUsT. nicdijiplay will be: 

n: .FOO = Ival 
Aliyoflhcscnii3Si:jnbcSETG«lb¥yi»utoUkHor [hclJehuggertiiynurowniastcs. 

3.6. ExecuUon Tracing 

!Tic "TRACE " PACJi^GE provides a facility fur observing the arguments und returned values of selected 
FUNCTIONS jnd nsUBHs. It is piissiblc W prini die arguments un cnir^ to the funeiim, prnu the value 
niEifracd. and to break on eniry iti and cxii from the function. All ^ictiuns may be performed ci]ndi{j[inally. 
I'u load TRACE, [ype 

<USt ''THACE-> 



3.6.1, Using TRACE 
rnACE ismvokedby 

iTRACE what oplions> 



rtVwHs either an ATOM or a LIST nf ATOHs, n,nming the ihings to be traced. Ihesc may incKide SUBRs. 
FUNCTIONS, and RSUBRs; however. nctyUiing unhich l*; iraccd miisi EVAL [ill nf fts arguments- opiiom 
apeuiflcsihe behavior uf TRACE *>ih rapeci lo ibeipecilled functiim. Iliercarc five swiTchcs. as follows; 

EN-QRHAIC 
means break (cause a Mm ERROR) berorcejUing ihe funcuon. NonnaUyufF. 
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IN-PRINT 

means ft FunciJon ;irg(imcn[son cnio. Normally on, 
OUT-PRINT 

means & fiintUun vdiic (in ciJl. NurnaUy on, 
OUT -BREAK 

break uflcrcxccuiinglhc Tunc [ion call. NLHTnally off, 
VERDOSF 

iiicansaUicaffiumcnuin Uic funaion one per line, ITiis is useful if [hcargumcnisjrc long. Nurmally ofT 

Tocau^ca giicn o|i[ion lube unaindltiiHiLilly on, induJc i[& ii.mic fan ATOM) in the vplmiisl UPlE. To 

Jg_- oiiisean option ui be iinconJilinmilly oft, include u iwo-clcmeni LIST. i'oni]]oscd nfihc opiion niune jnd a 

|L FALSE, If [ho secunJ clement of Ihc LIST is iicilhcr FftLSt nor iin ATOM, it \^Jll be EVALt^d each Time 

TRACE CKiiiniiics the ^uiuj iiflhc given optiun for Ihe function. iTiis ullnws cntidilioniil breakpoints, for 

(example. 
'I"hus: 

<TfiACE FOO (OyT-PRTNT <>)> 

willc-nn^c FOO's ;irj?utncnt5 lobe primed on cniry.bui Ihe \jhie*ill no: be prinwd, 
<TRACE fOO (OUT-PRINT '<&? <TIH£> 1.0>)> 

wlllciiisc pnniingof llie viiliieaflerfourscL-oJidsorepu lime hu^e been used. Priming of ihc arguments wil[ 
uccurcacJi iime FOO is called. 

UNTRACE turns offiracing of ihc specified fbnciions: 
<UNTRACE whitKaroniuf^Hsiy 
ir/ffj/dcfaulL-imaLIST uf;il1 funciiun:^ which have been [raced. 

3.6.2. Understanding TRACE 

TRACE worts by CUTYPEmg Uic specified funcliuna lo new [jpcs which have an APPLYTVPE asstxiialed 
wkh Ihcm. This means [hii[ une cjnnor trace ChiIIs [ii RSUDRs or fiSUSR-ENTRYs which are already linked. 
In addition, it means that UNTRACE must be used U\ £ci die Old value bacl;. lo aoicmilne ihc status of a 
hinciinn widi respect tn tracing, say 

<G£T applicabh TRACE> 
Ibis rcuirns FALSE if appiktibk is m\ imccd: otherwise, i[ reiums an iibjeei whicli describes the settings of 
Ihc various option>:, 'l"hc ohjeci has a PRIHTTYPE which .i!isivi,ue5 [J^c name iif each optiim v,i[h lis wiring: 
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<GET ,FO0 TRACE>t 

fOO 

IN-BREAK: *FALSE {) 
IN-PRINT: r 

OUT-PRIHT: ^G? <TtME> 4.0> 
OUT-BREAK: ffFALSE {) 
VERBOSE: ffFALSE () 

Individanl seilirgs for li pjrLicubr fitncuon may be ch^n^cd bv PUTiIng mto tliiSsEruciure: 

<PUT <GET ,F00 THAC£> , IH-BREAK T> 

causes El break whenever FOO iscailei 



3.7, Monitors 

A common pn>hlcm in dchngging is ihc mysicrituin dobbcring' or" sfimc ^jIiic ^ir ckmcnt nF a dura 
sinicturc- MlJ) hn^ imheddcd m ir .1 mcclnnism fur mggcnng intcrmpLsim references, cilhcr For residing or 
*mms,U] valucsofvamblcsJiidclcmcnisofsmiciLira. 

ITic "HONnOR" PACKAGE ii designed Ui be a rcadilv .xcissiblc luor inWrFacc lo ificsc "REAO" and 
"HRrTE" inicrrupis in Ihc Miii imcrpreicr. 

Toobtyin ■'MONTT0R^ 
CUSE "MONlTOaO 

There arx? ihrcc basic fcind^ of ihings' which can he moiniorcd: values of ATOMs, elemcnfs of 
STRUCTUREDsUhcTYPEofTheclcmcmisnuiim[ionfln[Kiind ASSOCIAItONs. 

ForATOHs,ihc LVAL or Lhc GVAL may he mom 10 red, IflJie LVAL is 10 be moniiored. me ATOM muslbc 
ASSIGNED?. IVir the GVAL. Vlic ATOM must be GBOUNO?. If ihese cordiiiuns cannot be mei. a monitor 
canrnjcbegencraied. 

For STRUCTUFEDs. die monrmr is on die mb elcmenL. where n k specified when Ehc monitor rs created. 
Hcmember. the monitor is on a sknoFthe STRUCTURED, not on ihcconienlsof thatslotl 

For ASSOC lATlONs. the monitor is on the dissociation itsclF. 

3.7.1. Monitor Internals 

This section expands on die di5cub.*iion of monitors in Use Mdi. document itsclF[3j. 

Mni definw L*o types of monitors: Read and Write. Iliese 2re implcmcnied in die langu-igc by two 
Hxcctition 1>acmg 3»6 
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irrcrrupis. READ! -INTERRUPTS irnd WP] Tt 1 -INTERRUPTS, respectively. In Jiddition, Lhc "'MONITOR- 
PACKflGE can allow read-wriic moiniors. The "MONITOR" PACKAGE is Jl base n sce iif funciicins lo creare 
Eind h.nnJIc [hc^c jnicrnfpis. A moniiur is iriggcred in ihc following cases; 

Read monJion 

HirLVALs-viaLVAL 
KdrGVALs-viaGVAL 
|-<ir5TRUCTUR£D^ - viaNTH 
KnrASSOClATIOhS" viaGETandGETPROP 

Wriic moniton 

hir LVALs - via SET or "AUK " bindings 
KorGVAU-^iaSFTG 
I'orSTRUCTURED?^ - vijiPUT, SUBSTRUC 
Knr ASSOCIATIONS" Vi.iPUT undPUTPROP 

Ntilc Ihat PUTRFSls i>f LlSTs which may alltr die mil olcmcnl of a LIST, do nut ;icccfts [he old iiih 
element of ihc LIST and [herefiiredo noicausea wriie mom lorio I rigger. 

Inicnially, MOL performs moniionng (in LOCATIVE* lu STRUCTURFDs. In faeu LVAL and GVAL are 
really pointers man inierna! sirijcturc.l"his need noiconecm ihc user except in ihc case of LVALs of ATOMS- 
In Uiisciisc. Mill will monitor a LOCATIVE U> lhaHc%sclly dial unique) bin ding oflhe ATOW. When that 
binding becomes invalid, or more precisely, 

<NOT <LEGAL7 Ioi:aiiye» 
a Funcijon Jn die -MONITOR" PACKAGE ^ill mulne ihe monitor vanisli. Ulcgal monitors prim as 
ffHONITOR [ILLEGAL] (if you ever ge[ a pointer to one). Rememberih;i[ if you wane to monitor the LVAL 
of an ATOM bound in a FUNCTION (or PROG. etc.). you mifsi create a new monilof each lime, as a new 
binding is created each [ime. One way to do dii^ is topdit mtii the TUNCT ION a call to MONITOR isec below) 
after the ATOM becomes ASSIGNED?. Fnmmaicly. HDIT ISCp section 12.19) has commands lo do e^tacUy 
dieL 

3,7.2. Creating MONITORS 

Crc;uronorallmonjlors is done through a c;kj| tti MONITOR Iwhich returns an object of TVPE MONITORJ, 

as follows: 
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obiecl 
where 
predicate 
iodo:iupie > 

where: 

r^/fti LS cither sn ATOM or a STfiUCrURED, or an ASSOCIATION item. 

.vhcrc is ciihcr LVAL or GVAL (if objix; is mi ATOM) or i FIX. (If objevt is a STRUCTlintOl, or an 
ASSOCIATION INDICATOR. 

prediinfc \^ ft)in.:[liin§ ^vhich I'l EVALcd Ui dcTcrminc whcUicr ihc monilor is lo be iriggcrcd: ^\h dcf-iulrs [O 
T. lilt: "HONITOR" nACK'\GE Jcllhcsliucc ^MrlJh1cs ^hJcliL-jn be rcrLTCnctd in Uic LcsL 

OLDVAL isilicdid ^yliiOorihcdbicciTnomiurcd. 

NEWAL Is [he new vjilue uf llit object inonilorcd, 

MOHOB J ;a the iihjeci monitored (ATOM or STnUCTUHEOI. 

Here w^ue means LVAL, GVAL, ur demcnL Obvkiuali , l*EWVAL is not set for "HEAD" monitors. 
lodo is Jny niimbCT of diiiigs lo be EVALcd and PRINTcd when the monitor is triggered, 
Noie ihmpTrf/fflif and lado are idoniicnl lo the an-nlogmis arguments of ibe ED IT BK cammflnd. 

3.7.3, Monitor Events 

When d monitor is trisgcrcd, the following Is primed (remember the predit:oic 15 evaluated before this), 

jndlhcnLISTtNisealled. Tocontinuc <ERRET T). 

Read: 

"READ of tvfipre af objeci" 

Value: oldvat 

lodol = resilll 

ioJo2 - resull2 



Write: 
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"WRITE or where of ubjeef" 
01 d value ; uldval 
he-vi value : iiewval 
luiiol = result! 
wdo2 - result! 

A slighLly diFTcrcnL fir^Min? fcrmdtis used for associaiiojis. 

3.7.4. KMfing Monitors 

Killing J MONITOR fs accomplished b> c-illing KILL-MONITOR as MIows: 
<KlLL-HONiTOR }mmlor > 
or 

<KILL'MONITOR Ijj^ objrci whsr£> 
In lJic bLlcrcasc. type. object. sntl where eK iis given in Ulc nriginiil c-ili ui MONITOR. 

Tiikill.iimONtTORs.usc 

<KTLL-ALL-HONTTORS>. 

3.7.5. Olher Monitor Routines 

<MONOBJ nioifilor y 
rciufiis ihc f'bjcci moniEored, 

<HONSPFC mofj/fpf ? 
rciurnsihc ir/jfff of ihc MONITOR. 

<CLEAN-MONITORS> 
flushes invalid MONITORS from Ihc MONITOR LIST. I'his is done internally and need not be called 
tDuiindy. 

.MONITORS 
isa LIST ofallcurrcni MONITORS. 

3.7.6. What You Can't Do with Monitors 

Youcan'tmoniLordicLVfiL of sumcLhiiig BOUND? bui rot ASSIGNED?. iLg^ 
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:define whong ("aux- bar) 

^monitor "read" bar lval> 

Ynu can't c^pciit compiled code eu cause momior^ tii be triggered. Nauirully. you can't pliicc moniiora in 
cuinpilcd code; huwcvcr, a compiled reference (u a munLU>rcd ATOM will not usLiiilly cauw ihc mnmtar to 
trigger kMthcr. 

3.8. FINOATOM 

Ihc -FINDATOH" PACKAGE is intended tu reduce ihc prijblcms caused by multiple OBLlSTs i^nd 
lengthy ATOM names in Mm. iNillnwsiinc tiMlnd nil ATOMs whiwcPNAMEH maU:hiii>mcspa:incLition. which 
need (UK hccxJici: In addlLkm. unc mny p]ji:c csmsir.iinLS on die viilucstifditATOMs found. 

f INDATOHIsinvnkedas: 

Cf nut minis 
oun>bl:Usi> 

s/w-fj/f is a STRING dcscrihing Llie PNAHE^ of ihc ATOM5 one wishes lo find. Three specTal character are 
rccogni/ed in this S'l RING: 

'■ matches anydiing, iticluding^n empty string 

=; matches any Single charjcier 

tQ: quotes the rollowingcharacier 

Search strings may bean arbitrary coiicaienadon of normal and spcciiiJ charnctera. For example: 

"•SDH*": matches any ATOM aintainmg "SDH" anywhere in its PNAME. 

"•iSOH»": matches any ATOM coniaimng ■"SDM" in its PNAME, provided that ctt Icasi one character 
precedes the "SOH". 

"tQ"" maictKS any ATOM with PNAME "■'. 

"•■■: ni.iichcsanyATOH. 

\f rQ is the only special chanicter in Uie string, il need not he queued: 'tQ- marches for ATOMs with 
PWAME "'Q", 

iM/r/f/ri/ specifies die OQLlSTs tosejrch. Possible valuesarc: 
#FALSE (): scurchallOBLtSTsm .OBLIST 
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fffALSE iabiisty-ur-fonns): search ul] bullhcOBLISTsspCcificd. 

ablist: vran:honJy thisOBLTST. 

lisi-qfoblists: scan:h only ihcOBLISTsinihislisc 

else: swrch all OBLTSTs Thi^ h Ihc dcfaulL 

fu^mray/i« is a TUPLE describing ihc value of each ATOM fannd. h Tna> consisi of any number of vulid TYPE 
names, along with arbiinry simcijrcs and [he foUimrng special objecis: 

T: if prcscflL overrides any uther cun^traiijii; if no other consirainis are spedHed. [his is assLimcd. Am 
ATOM maichingspffWr will he accepted. 

ANY; overriden any ainsiraini other Ihan 7, Any ATOM macching spii-,if which ha^ a value (clllicr GVAl 
iir LVAL) will beacccpicd, 

<>; .Mu ATOM which hai no \alne uill be aci-epted. Nolc Ihjl giving hoih ANY and <> is cquhalcnf lo 
giving T . 

LINK; any LINK will be accep[cd. 

If [ithcr omMrainl^ arc provided. Ihcy wnrk as follows: all viiljd TYPE [liimea gjvcn (oiics for whom 
VALfD-TYPE? returns T) are skircd in a siruccure: when a \a1ue ts encouiuered, iis TYPE isHEMQcd 
on ihis siniciure. If the ATOM does not succeed berc. it is nvM checked agarnsi ihe arhiirar^ 
siTLCiures-' I 

Anylhing in ci'iisiruiitis which is ncilhor one of ihe above ■^|>ecKil nbjecis' nor a valid lype is ircaled a? £ 
DECL specification. AIT such objects are put in a FORM siiirling with OH, which has Ihe effect of 
gencMting a single DECL speciriCnitior-. Wher> a value Is found. DECL7 is called with the value ns its 
firsL jrguiiieni nind [he gcnerjted FORM as Ils second. If DECL7 rcuirns T. meaninfi Lhal Uic fORH IS 
valid ns a DECL for die VALUE, the ATOM is accepted, 

KASinples; 

ATOM FALSE '(LIST [REST FU]> 

specifics ^at any ATOM accepted must have either a GVAL or an LVAL which is of type ATOM or 
FALSE, or which is a LIST of Ft:tcs. 

'<0R ATOW FALSE> 'tLlST [REST 0BLJSTJ> 

specifics [hat any ATOM accepted musi match ihc DECL 

<0R <0R ATOM FALSE> <LTS1 [REST OBLrSl]>> 

^tFfi/.ifprci^nLisaLISTorOBLlSTswhidiistheLVALofOBLIST when FlNDATOM prinLs Uiings. ITioS, 
one may force all ATOMs to be printed with full trailer:; by pnnidinE im empty LIST here, 'l"hc lasl 
argument given to FINDATOM. provided ins a LIST, is assumed 10 be */woW. 

FINOATOM prfnisihc njimc of each ATOM it accepts, followed by Ihc STRING "Gasslgned'' and ih( 
lypeofGVAL if[hc ATOM has one; ibis will be followed by the STRING "Assigned" and Ihe type of Ihf 

3-^ KiNDATOM 
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LtfAL ifthc ATOH has one. Ti prints Ehc number jfATOMs found when j[ finishes. 

■ 
3-9. "PINFO" 

"P!NFO"[s,minfDnn.tbnaiPACJ:flGE. Misused ED^.aminc the OBLTSTs ufmc PACKAGES b.dcd iriLo 
an Mdi . There are lwo major enirJcs in PINFO, 
^PCK-INFO pack<ige:ilriiig 

nu[ha.B„mcnun.>PCK-lHFO,nrc optional. Tfndthorargi™cnus given. Lhc n.mcsofiho PACKAGE^ loaded 

inloLhoMD! .refilled If^ /^cAo^i-is given, [hcainicnis ufEhcp.iekagcs ENTRY OBLIST arc hscclas well 

^fsir^famiaiionabmii [he VALUE of cJi ENTRY, if //P^rW?[s pruvide.! iind non-FflLSE diecmicntsof Che 

miimilOBLlST.re.lsr.lisicd PCK-ENFQ pnntSiin errtjr message ifpiickaEejs nmbadcd 
<PCK-USFS ifack.ige:slnfig> 

ItsK (he names of PACKAGES USEd by p^ttkagcirrcmmia FALSE ifpackagc is nuUoadcd. 

3.10. Debugging in a Run-time Environment 

A fjirly cimmun Dcciirrcnce when running debugged' CiKio is lo find thm if wa^ ntjt after .If compleie!y 
debugged, J[ is useful lo be able U> liiad interpreicd ^crsiuns of some FUNCTIONS in u PACKAGE inio chc 
compiled cnvironmcnl for debugging, "OFL-, ^RDFL". and -UNLlNi<^ arc PACKAGES ^nircn lo simpli^ 
tills procedure. 

3 10.1. DFL 

lTie-DaMJ>cbuggingH<>ad> PACKAGE is a sei of roulmra fur loading ai>d dumping of ^^^^ 
of FUNCT lONs from a larger file, h is useful in debugging already mnning systems, or ones which have nol 
bccnGROUP-LOADcd. Togei'-OFL'' 
<USE -DFL-> 

Thcmjiacniry ofdic "DFL" PACKAGE is DFL: 

CDFL fuiicnnmei fiie-isaincsirm^ iiiiisnk?:boa!ean> 
where all argumciiis are optiimal and 

^^;^»^w.is [he name(.J,>fiJlcDEFINEdFUNCTTOmsJUiheobiainedr.^m this file. !l may be an ATOM a 

STRING, orasLrucmrcLOTOr^ or 5TniNGs:irATOMs are gi.eii.^hcirSPNAMEs are used, 'ITiedefduU^ 
me nigiimcm lasl given m DFL nr ROFL, 

;?/^.m-.fMsihemcroc^bL.incheFUNCTlON(s)fr<,m. Ihedefauhislhcla^rfllcDFLedorROFLed An ATOM 
may be given, in whk;h case Jis SPNAME is used for die firsi file nanie. 

m^/mt.nfthis is true, and ifoncijr mure ofLhe values replaced bjlheDFLed FUNCTIONS were HSUBRsw 
RNDATOM j_j 
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RSUBR-ENTRYs. tfic reference VECTORS of all RSUBRi including pure ones, will be searched for 
occurrences uf die old value; such iccLirrences will be replaced by ihc ATOM. Hns is ihe invcrw of 
RSUBR-LlNRIng. Pure sirucEurcs will be Linpiirifjed; ihis dues nui cliangc llicfr address in cure, bui 
simply makes [he page diey live in rcad/wTitt. 

Tn Ihe normal case, ifan RSUBR nr RSUBR-ENTRY h being replaced, unlinking will occur aLKonwdeally in 
garhagc-cntlccior space only if RSUBR-LINK is T. AIh), remember ihai jnlinkbE is noi [he same as 
subsiiiTJiing: onl> RSUBRs sUtrcd a: mp level in reference VFCTORs are found: tf [heotd \;ilue ilsclf wasina 
^imciurc {such a% a dispniich lablc), ii will not be replaced, 

3.10.2. RDFL 

RDFL is iimibr lu Df L bin i^ Hir rchuding RSUBRs rallier U^an FUKCT rONs, RDFL is conLilncd in (he 
PflCKAGF "RDFL". 

<ftDFL func- names fde-mittr unUiik? ^lueTi 
llie firsiiJiTccarEumenlsarcjisforDFL, tlie nnly difTcrcncc heiween BDfL and DFL fb;irrine Ihe effecl of 
Lbc fourth H»£umenO is ihal RDFL sean:hes in Uie Hie for XSETG " raibcr diaii ■<DEf IHE ". 

^iU€? If non-FALSE. RDFL will READ and EVAL the ncii ohjecl in die Tde following each RSUSR read. This 
will in [he normal c;ise obiain ihc glue h\i< for Ihc RSUBR (secscciion 6.1). Tlic defjiiU for i'/wf.'ia 

<AND <ASSIGNED? GLUEj- ? .GLUE^- > 
'Iliisisdie FORM used in NC IN Hies uide[enninc whether glue hits should be kcpL 

Noie Iha: RDFL svill work Ui reload any SETGcd object, ntnjuSL RSUBRs. 

RDFLing an RSUBR-ENTRY docs not work and may well be fatal: you must RDFL the RSUBR in which 
ihcRSUBR-EMRY isan entry. as weU. 

3.10.3. UN'DFL 

UN'DFLrs fur wrltmEOiilOFLed FUNCTIONS aRcrEOITing. 
<UH-OFt. niams fifmm forced 

Qjouisx'i an ATOM or a list of ATOMs. which will he UN-DFLed. TTie f UNCI lONsdeliiicd must all be from die 
same FjIc. or UN-Df L will not wurk. UN-DFL c<Jn only UN-Df L diiogs which were previously loaded by 
DFL. 

fiitmmTUti defdLiEl is the fde die ATOMs orieinally came Trtmi. 

/jrtT.'NonTially. UN-DFL will object iflhere is a veisjon between the lllc ihc FUNCT [ONs came from and the 
file which UN-OFL will create: it Uiinks ii wi|] likely destroy usefuf in form,! [ion. I'ruvidingan ATOM here 
causes Ihis scruple to be ifinorcd. it isalmi>stiilwaysijnwisc todoso. !-oraample: 

3"iO llebugging in a Runume Hnviromneni 
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(DFL (FOO BAR)> <UN-DFL F00> <UH'OFL BAR) 
*il! cause UN-DFL 10 fa^. Moral: DfL jnd UH-OfL yuur FUNCTIONS logcrher. 

3.10.4. UNLINK 

■The -UNLINK- PACXAGE ci)nLnin^ three L:mri«: UNLINK. PURE?, and UNPURIFY. UWLINK is 
aimciimcs called by OFL; PURE? -ind UNPURT FY arc gmxi *ay5 [o hWaiivcly defeat the siifeiy interlock" of 

Mdi. 

UNLINK is used Ui jnlinltRSUaRs iiflcr ihey huve been linked. fSce [he di^ii,ssU>n uf RSUBR-L INK in 

[3D- 

:UNL1NK (Jit^ins pure7> 

-mjms is .1 list of [he ATOH^ Iff be unlinked, Lini FALSt, meaning iinlint every RSUGR in die Mm , or a 
gnjup-name. incannE unlink culls to .ill FUNCT lOHs -mj RSUBRs m the ^'oup- 

ptire^ ?!4 optloniil nnd dcf;iulls \o FALSE, but tF true, even pure RSUBRs wiU be ticarthed. UNLINK 
Ciiimines all the OHLlSTsiu llic Mm , lixiking fur RSUBRs; If an RSUBR csisis only m a simctiife, jnd notai 
(Op level in any RSUBR's reference VECTOR, k will not be found. 
<UHPUR1FY fmi^^Jecr:o'fv > 

PURE? tatcs an objac and determines if die righl half uf the v^lue wurd Is ercaier than the number 
contained in the MuL laaiion PURBOT, whkh is Ihc lowest pure location ia Mm., Brgo, 'Is the object I gave 
you pure?' U 15 only meaningfiil for stmciures. 
<UNPUR1FY Dure-ubieci:anv > 

UNPUH IFYiakcsa single urBumenL which must bcof PR IMTYPE VECTOR or UVECTOR(i.c„ it musi have 
jn AOSJN pointer fof its value wurd)- It causes the poses in which th.it object lives to become impure, and 
returns r, 

Mccausc ihcrc is no wjjy on ITS eo nalie a read-tinly page an impure pjigc directly, the following algorithm 
iSuwdbyUNPURlFY: 

L Is Ihc uhjcci pure, acairding to PURE 7 Ifnoi. leave. 

2, IsUNPURlFY-PAGEl-IUNLlNKGASSIGNED? If not. get a page fmm (he in[crpreLer,dndSETG 
the aforeirtenLioned ATOM lo its number. I,c„ the page ts more or less pemiancnily taken fur use 
ufUNPURIFY. 

3> Kl^r each page occupied by tiic ubjccL; aj \f the page is already impure, do nothing: b) u[hcnvise, 

iJcbuaeing in a Kun-timc Rnvironment 110 
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mnpihcpjigcon [up DrDNPURIFY-PAGE: recreate o nc*, imp it re page where thcold page was. 
d)copy lhcciinientiorUNPUPIFy-PAG£ baclno Uio old, now impure page, 

"ITikts. no poinicrs are changed: as Far as Miif is ciinecrned. in \xi. noLhii^ has ch-mged. llic unpurified 
pages are silll pure, according lo JLs page map. However, you may Trcely change the unpurificd objecL 

If your change lo ihe newly unputificd object cimsisis of PUTing a poinicr iniii garbiigc-collecied space 
ini[^ [he [jbjccu you may lose compkicly unless ihe pormcr poiiirs [" a fni/cn objcci. ITic Mm. garbage 
coUeemr docs noi oxnminc unpurified objects. UNLINK can unly use UNPURIFV because all ATOMS 
TCfcrenccd hy pure RSUQRs are indeed frozerj. 

Forthciibove reason. usctifUNPURlFY is not recommended fur ill c genera] user. 

3.11. CRITIC 

"CRJTIC" is J PACKAGE designed [uaid ihc user in debugging Omd perhaps increasing the efficiency of) 

hisprcignim^ ll J^ecumL^laLcs mid prinrs in a re:idable fonriai jnfomianon abLiuubCinicfac^ionsuf ihevanous 

FUNCTIONS (and LVALsand GVALs) in a group, ll also Wiirns ilie user flbLiu[ various con di linns il considers 

lobe cilhcr non'up[imal or erroneous, such as incorrect use of SP£C lAL, forgculng io QUOTE some s[nic[urc, 

and sn on. UiVc mosl critics, ii i^ somciime^ wrong, hut ii [ries lo perfrtrm a uscfiil service. I tj load 

"CRITIC^' say 

<USE -CRlTfC"> * 

Tliere are iwo m-ijor cnUics. one of which prinis more informaiion ihar [he oUicr. 

<CRTTTC sfGup-name 
uutpm-Jiley 

whcK group-name a [he ATOM returned by a GHOUP-LGAD, and ihc opiional oi/r/uj/-/(/Fisa STRING giving 

ihe name of ihc file ioouipui[o(b> dcfiiull wiih second file name "CRITIC"). This can wlsii be a CHANNEL 

if you are planning to do several CRITICS inio anc file- CRITIC prints iiifonnaiion abouc inieracitons 

amimg the FUNCTIONS in a group (as described bdow), 

<CR1TIC-N0TES smuji-itam^ 
(juipui-jile^ 

is similar bu[ only prir is "errors' and 'warning*'-- things Uiai mighi be problems wiih the FUNCTIONS in Ehc 
group. 

'lYicouipui fomiaU Tuf (^^h FUNCTION and Tor die group as a whole) is as follows: 
funcfiaii iobjecliiumbfroffuiiciioiiiiisrnup) 

Called- by: a list of aU die fUncdons ^hich cal1/{//Tcfr£U7 

3.10 Debviggiog in a Run-lime Environmeai 
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Call s: El Jisiufiill the funciiuns called by /^yic//on 
3ETG: cxtcm.il gUib^iis SETGcd by/uiiclhn 
GVAL: cilcrnai glohals referenced by fuiiclhn 
SET:eiEcrnjharJiibl«SET \3yfu11a10n 
LVAL: CAiernul variables rcrcrcnced by funciiort 
SPECIAL: '.ariables declared SPECIAL by /u/ic/wn 
USE-DATUM: DATUHs u^db^fuiiclfon 

The above uble is pnmed by CRITIC but m>t by CRITIC-HOTES. "t-j^icniiir as uwd above means 
Rxiernid la fuiKiion' . 

CRITIC-NOTE Sand CRITIC boUiprinunforni^lidniihtim possible defects i^rcm>r^ in caih FUNCTtOH. 
Ilicsc cLiii be Hin^ [ir all of Lhc rolldwing tc*plano[ii>n5 fnlb* \vherc needed), 

3.11.1. Global problems with the Group 

FLOAD in filH. 

HiTsisprcuy rnintir: FLOAOs miop level are discouraged iFyou can avoid ihcm. 

BLOCK or ENDBlOCR at top level in PACKAGE. 

PACKAGES shuoid nol have ro rcsor[ U> diis. 
afom-naiue: MANIFESTeO structure. 

ThcATOHgivcnls J^ructurcbul wasMANIFESTcd. Since j WAN IF EST is copied wiLhin the leference 
VECTOflufanyfiSUSR thai uses it, ►tl^ usually nuL a ^ood Idea., 

ENTRYs not boundn as^uniad lacali: aiotrt-lisi 

TlicATOMsgivcnwcnjmadeENTHYsinihcPACKAGE. but were not bound, so CRITIC has assumed they 
ire locals, for lack of somcihing bcwerio do. 
Packages USEd but never ref^rancad: pucknge-naiiies 

These PACKAGES were In USE stiiemcnis buE no ATOM was ever Found *hich fell on [lieir OBLISTs- 
"nicrc*il1 somcrtmes be incorrcci entries III Oiis list if you USE a PACKAGE whichscisupa funny ENTRY 
0DLI5T (RPACKAGEs included) or no OBLlSTsatall 

Internal Functions unused: atoni-Iul 

ITicseiirc FUNCTIONS DEF I MEd buE iipparcnLly never referenced and not enirics. There will somCEirriK 
bcincorrcctcniricsin this list if you have FUNCTIONS invoked only by funny dispuLchinsmcEhuds, such as 
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APPLYing [ir EVALing an cIcricnLofasiruclure. 
Internal globals unused: atoni-lisi , 

ATOMi SETGcd ai Ujp level hut never referenced. 
Internal mani feats unused: aiom-iisi 

ATOM* S£TGciJ and HANIfESTcd 31 lop Icvc! bui never referenced. 

3.11.2. Parameter list problems 

ATOH ntour-fuii'ic used twice in parameter list. 

Hic ATOM n,imcd wlis huiind [*icc in tlic 5amc paramcicr LIST within Ilie FUNCT ION. Mill dtjcsn'i 
worry aboui ihiis. but yuu mighL 

Untastefyl te-usb of ATOH ouiHi-iiijme in ROOT. 

An ATOM wa? hound whidi happened in he in ihc ROOT OBLIST »i(id hippcncil lii have ii GVAL ihaiiss 
SUBRor FSUBR, This is repiirtcd because the ATOM wiM ha^e tube unpurincd, *hich is eipcnsive. 

-BIND" illegally located, 

A "BIND" was found other than at ihc beginning ufaprameicr LIST, 
-CALL-VAnG?- illegally localfld. 

A "CALL" or "ABGS" was found after die "AUX" in aparamcicrLTST. 
"OPTIONAL" illegally locatBd. 

"OPTIONAL- was found after "AUX" in a pEirameier LIST. 
"TUPLE" Illegally located. 

"TUPLE" was found afier-AUX" in a parameter LIST. 
atom "Am- illegally guOTEd. 

Ihc ATOH named wa^ given aaaquoicdarEiimeni in Ihc" AUX" pnnof [he pjirameicrLIST, 
External luteals set but unbound and unDECLed: inom-tisi 
External locals set but unbound: fitorn-lisi 

Two diffcrenE classes of hKkirg an cMcrnal local. In bolh cases it mc»ns thai Ihc AT(W& did ROt appear lo 

111 CRITEC 
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bo :mpr,>p.r|ySPEClAL.d. since noon.bou.dihomhfghcrinihocallrr.. (oral ^^ 
.>ftcn Indicmions of misspcllms .r forg^aing 10 pm a lopiponry m iht: piir^^^ 
External locaTs usad but unbound and unDECLed: amHisi 
Externa] locaU used hut unbound: arom-tisi 

A rofen:ncc ^o .n c.ion>a] tal which «as no. bo.nd .nywhor. is probably . mi.spolli.g ofa SPECIAL 
boundd-^*hcrcrnrihorc.u!LorfargclEingiDpuuhcATOH3inlh.FUNa:ON^.p..rpnia^ 
E;<t6rnal Incala seL but unOECLod: t/toWu/ 

Ej^ternal focal s used but unOECLed: afoni-lisi 

ADe.LOrnalu.scd but ,».DECLodusu;dly means tb..di. compiler will pr(HJuccp,H>rorc^^^ 

3,11.3, Unused ATOMs 

Argument unusadi atoin-lat 

llic argumcnis lisKd were never rofercnced. 
Unused: aiotii-Hsl 

The ATOHe listed were bound ui ujp fovcl ufrlic FUNCT ION and never referenced. 
Unused in PROG: atom-lal 

Simiiiir rr the above, but die ATOHs were bound within a PROG. 
Unusad fn REPEAT: a/Ofn-lisi 

Slmflar to Ihe above, but die ATOMs were bound within a REPEAT. 
Unused in FUNCTION; atoin-list 

SimiLr ui die above, but the ATOMs were bound within a n.mdess FUNCTION, such os the second 
argument lu a MAPF/HAPR. 

Unusad specials: <i{orf\-lat 

- 

llies.imca..bove(indudms- ... in FUNCTrON\ etc.). except diat die ATOH w^. SPECIAL TTiis 
mcs^ge result, from rc.Ify looking down die c.ll tree, so k i. mure curate about diis problem than the 
^fmprler, which Qn^y loots at the FUNCTION in which die ATOM is bound 
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3.11.4, Function calling errors 
Calls undefined function mom. 

IhcFUNCT ION ciill5 an undefined fUNCT ION rundcfmtJdallhciimc CRITIC ran). 
Cells Jiiuciion wi Iti too few arguments. 

Calls Junciion with loo manj arguments. 

Exlernfll f UHCJ lOH funciion 

I'hc FUNCTION n.imcd is c;>llcd buiducsn'l sccmio fall on any uFLticOBLlSTs associated \viU] die group. 

3.11.5. SPECJAL/UNSPECIAL problems 
SPECIALS never used as SPECIALS: uioin-lisl 

Ilic ATOMS WiTf nuidc SPECIAL bui never used oulsidc [he f UNCTION in which dicy *ere Ijuund, 
aitmi-iiome is unused or should be SPECIAL, 

A very specific error which me.ins thai the ATOM given lalways one of INCHAN, OUTCHAN, or OBLiST) 
was buund hut never referenced within [he FUNCTION, and *aB no[ SPECIAL: Ijihcr you bi>und il fof 
eJTecl and forgot to SPECIAL iL or yuudidn'[ need to bindiL 
afvni unbound in paths: ptuh-h'sl 

Iflhe FUNCTION ia called by one of die paths given, Ihe nn/m will be unbound. A patli is Just a list of calls 

CRITIC has found are pi^ible. such as (FOO BAR BLECHJ. mcyniiiB^OO iscalkd b> BAR which iscalled 
byBLECH'. 

The ATOM atom used in /cril should be special 3n fcn2. 

Thisnmewiriappcarwithboih FUNCTIONS mentioned, ll means dial o/rj^// is referenced in /fn/ and the 
flcurcii FUNCT ION that binds i( and calls down lo/rn/ \sjcn2. 

3.1 1-6. DECLIng problema 

RSUBR has no DtCL. 
FUNCTION has no DECL. 
Parameters not DECLed: aiorrj-list 

lllc ATOMS given were bound btil no[ DECLed in die parameter TisJ of a FUNCTION, PROG, or RE PEAT. 

3'li CRrric 
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No DECL in DECL for: aiom-Hsl 

llic ATOM^ III Lhc aioifi-fisf %i\*in liitd ni> LLSSOciJiLCd dc^bfriuons- 
NEWTYPE not DECLed: lypf-fiaufe 

A N£UTVP£ of n Hniciured type was made but no DECL Lirgiimcni swus Included, In j structured 
HEWTYPE. inckidinga ntCL of ihc inreriorcan grcjtly increase die efficiency [if com pi led code. 

Illegal DECL: amni-lisf deil reason 

The DECL pinr given hjid illegal sjniiix for die rcnstJii given, '("hesccan include; 

"Not a 1 eg a I type": An i>bjcci ;ippcLLrcd in.i DECL Ih-i[ wiiii nOLSii ATOM. fORH, nr SEGMENT, 

"Type -name not a type: irl'im": S^^nn.nhillg oilier [Ii.lq ;i [ypen;inie nTSjicciJ syinhul {^iich la ANY) 
appciircd where a lypc wj.'^ expected. 'Vhn iti S(]]TiciJme& cduscd by iim h^i^ing your cnvirunmcnL 
completely set up when CRITIC is run. 

-FORM/SEGMENT too short": A FORM/SEGHENT tonsinjcUon of i>nly oneelcment was found, 

"SPECTAL/UNSPECIAL With three or more glaments" 

"Had PfitHrYPE tjpe": ITictypcgivcii in a PRIHIYPE was ..otaiype-name. 

"PRIHTYPE with three Or more elements" 

"Bad typo of structured type": The lypc-niime given as [lie type of -i sinjciurcd type was not a 
type. Forciampic. <fO0 flX> where fOO i^ iioiaiypc, 

"Bad BYTES specification": A BYTES specification was not uf [he rurm <BYTES jlr yit>, or the 
byte rii/.e w;iii greater than 36. 

"BYTES DECL too short"; ABYTEScunstruttionuf unly oncclcmcni wuscncouniercd. 

"BYTES DECL too long": A BYTES ctinstniction uf more than dircc elements wasemzountCFed. 

"VECTOR in OR apeci f ication"; An NTH/REST/OPT consirucliim wasfoundattiip levelufanOR. 

■Nth/REST/OPT too short": Aone-cicmentNTH/REST/OPT. 

"Only REST or OPT may follow OPT": Something uchcr than a REST or OPT was found afler an 
OPT. 

"REST must tei^inatg DECL": SoLiiething was fiiundafieraREST in iheDECL. 
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3.1 1.7. Miscellaneous 

Possibly should to QUOTEfl: siruaurt- 

ITic smicmre eivcn wtU be =T lo itself if EVAUd. CRITIC Hsts these undi^r :hc a^i^mpiU'Ti Ihai you 
miglil have forgoncn U) QDOU a ssmcmrc [h;n shijuld h.vc been. Il says "pussibiy" because yon obviously 
w;im U) buUd new siruciurc Si>mmimcs. One way lo do this withouL utTendine CRITIC H lo build new 
sinicture wilh cjipIiciUnUs lo LIST. VECTOR. Ctt. 



3.12. Program Environments 

ni,- ENV PACKAGE m^kcs ii c;isicr lo l"iid pmgmms mH3 difTcrcm envimnmcms. U iill"v,s certair; :icuuii& 
lobeU.kendiir.nsl"J^du;E"nlyif^glvctitco^uTC-isprc^cnLENVhosihrecENTRYs.:mdrspK^^ 

<FEATURES fcinum:iuplf^ 
IfgivcnnnikfEumcias, FEATURES reUirn5lhccuiTenLfe.HiircUST. Ifiis first ^^iimem is noi a FALSE, ihc 

.irei.menui :irc iiddcd to l]k fe^anre LIST. If (he Tirsi ..reumeni i. f ALSE, ihc rcmdning nraumeuLs are 

tcnioved fmm ihc fcauire LIST. Thus. 

^FEATURES ''C0HPILER''> 
say^ dial we arc CLirrcntly ml ii compiler. MT of the TenUire- orgiimenis mJiy be either STftlNGs m ATOHs: 
Inicrn^lly fcfllures are smred as ST RI NGs H) avoid 00LI5T prublcms. 

<FEATURE? fp>ifurCi:luD!e > 
reUirnsT if any of lis ^leumcnLS is oMhc feature LIST. 

<EVAL-WI1EH femum 

uses tlic fir^t argument tu decide whcdier to evaluate the rcmalnliig argumeuis. 

fcmra specifics whieh femmcls) [o look for. It ma> be a single feattire or ^ L 1ST oF fc^itures. In d.c bllcr 
c«sc. if Miclirst dementis^ FALSE, what isehcaedron^ the absence of LhcfeaiLires listed. NotcUiatdiiS 

argLimcni is ullen a LIST created out of arguments III FEATURE?. 
ajusequcnECSOTC tilings to be cvaUi.ued unly if die rcaturcs jrc prcscni for iibsenL In the FALSE case). 

For example^ 

<EVAL-WHEN GLUE <SETG FOO 1» ' 
wtJuldpcrRirm the SETG only if ifsevaluaiedinaGLtJt tor some olhcrcnvironmcnt defining diat feature). 

<EVAL-WIIEK (C> COMPILER) <SETG BAR 2>> 
would rot perform tbcSElG in ihc compiler cnviromncni 

Unfommjtcly, the ENV PACKAGE is a relatively rccem innovation, and so many pmgrams do noi set up 
appropriate ettvironmenis, 

111 ■ CRITIC 
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4. The Library System 

A cohcrcni unincd library sy^icin serves lo racititaic Ihc sharing uf filgnriilimi nnd data by imposing a 
discipline ippropriaiiz For [he particulcir cnvironmeni 'l"hc Mdi l.ibrarj Syaicm provides: 

- A uniform access mcUuid for referring U> (unciions jrd dau outside oflhc current h'gical group: 

- Lexical bl<icVine,elimmiUingdtfnciillics!irising from ovurl.ip of nomcs bciwcen diftc rem logical 
groups: 

- Auiamaiic loading orfunciinns for Ihc uwr who knu*s only ihc rijimc of Ihc Tunction which is 
warned: 

- A Riciiiiy whcrcbj- funciions which may lie neccssjiTy iiniy in uniisuii! siiuutions .ire loaded only in 
thec^eni UiLiiihey arc needed 

llic Mill I ibr.iry Sysiem may be divided ftihi diMiuci pans, tlicse ar^: 

- ITic Piick-ige Sysiem, Ihc colIccUoTnirrouuncs used lo prov'idc lciLic;0 blocking for j logical group 
(^e scciion 2): 

- Ihc "ciplicit' loiiding f&ciliiy. tbc niuLincs used Ui cxpliciily indicaic \hal fcfcrenccs are being 
made lo n p.micular lagical group; 

" The 'implicir Itir "dynjiEUic') loading facility. Lhe niiicTiincEy for aulonialkally loiKJing functions 
when Lhcy are needed du ring con wie interaclion. 

4.1. Program Libraries 

In the previous discussion o( the Package Sysicm and USE (see section 2.3.2). we glossed over the 
mechanism by svhich ;i PACKAGE is loaded when another PACKAGE tor the user at hi^ lerminLiI) refers lo iL 
We will now give ihe details. 

Ihcrc arc two types of Ti^ding common in Ml>t. pnJgramming: 'ciplicit* lading, such as USE may 
iniilaic, and 'implicit^ or 'dynamic' loading, iniliaicd by ancmpLing Lo cail or einmmc a funeiion thai is not 
currcnily loaded. 

Inihccascor'cjiplicit' loadmg. U is necessary somehow lo map lhe name of a PACKAGE into a file name 
which cuniains Ihc body of ihai PACKAGE, Hie mechanism fordoing su must be flexible enough to allow 
boih 'insialled" programs (Uiose lliai have been debugged and submiued lu the library) and devclopmcnuil 
prx>grams [o be loaded. It musi also be tailorablc for special needs, such as libraries for ^peciric systems and 
personal libraries for individual users. 
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In Ihc case of 'implkii'loadinB. die further m.ipping from [he specific EWTRY of ii PACKAGE referenced [O 
ihc PACKAGE iiselfmu^LbepeFformcd, [t must deal wjih Ihccasciiftwonrmorc PACKAGES each conEnining 
an ENTRY witlilhesamc PNAHE. 

For program? thai arc 'public" or 'installed', buih of dicsc mappings are pem^rmed by a library. A library 
la a file which CO nrains poinlcrs beiwc^en [he names nfENTRYs of PACKAGE^ dnd die PACKAGE? coniaininE 
them, jnd fru[n PACKAGE and DATUM namei lo the fik^conlainiiig diem. 

The standard library i^ named LiBHUD and lives on a dircciury named L[QHUD {m ITS) orHOLLlB (on 
Tcnex/lops-301, bui jdier librarira, pcreoniil isr special purpcse. may also cxise; ihe mechanisms for creating 
iiiid m:iin[aining Jiem arc ihc simc in both cases. 

4.1.1. Library Searching 

When a PACKAGE tsUSFd, Mm first checks m see if the PACKAGE i? already loaded, by looV^inE up the 
PACKAGE name oil Uic PACKAGE 0BL15T. If the PACKAGE is not yciluadcd. Mm muii search forthcfite 
cuntaimng the body uf die PACKAGE. 

When Mdl searches, it docs so under die direciinn of a search path stored as die LVAl uf the ATOM 
L-SEARCH-PATH. ITiis LUAL is a LIST, each element of which specifics 'a place lu look' for the PACKAGE. 

'Hicsc elcinenis may be; 

-ftle-name' 
A STRING TCfera tea library fde: -LIBHUO: LIBHUD" fur example. 

n 

An empty VECTOR refers to die CSHAME> dfrccioLV. Ihe directory will be searched for files whose names arc 
the name of the PACKAGE being loaded (truncLited to six charactecs un ITS) and second names from the 
LVAL of the ATOHL-SECONO-NAMES, which is a VECTOR of STRINGS which arc possible second names for 

die tile. 

[ dir:s/tiiig- or-Jalse] 
A non-empty UECTOft specifics a directory. The ftrsi elemenL of die VECTOR gives die directory as a STRING 
or a FALSE, the latter case meaning <SNAME>, If that is dicon>y rfcment. L-SECOND-NAME S 5pecifics die 
file names to Iwk for. If there are oilier elements, they should be STRINGS to use in place of 
L-SECOHO-iAMfS. 

A search padi may consist of any number of such elements. The loader wiH ciiamine Oicm sequentially, 
aitcmptmg ti> find die PACKAGE being loaded. 

Program Libmriea U 
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'!licinJlialLVAL[3fL-SEAUCH-PATH(onlTS)TS 

("L18HUD" "LIBMUD:L1BHUD- [] [^'MBPROG"] ["MFHOG" ">■]) 

and un TcncjL/lOPS-JO. h is 

("LIBHUD" ■■<MDLL1B>LTBHUD" [] ["MDLLTB"]) 

111 rs in sinjc IS ilic loader m flrai sc.nrcli :lic user's pcrwmal librarj' liFii ovists), LhcTi [be pLihlic" tjbrary. Nc^t, 

sciiTch the user's dircciory fgr a Tile whax first mmz i% ihc PACKAGE name, and whtisc second name is 

spcLificd by L-SECOND-NAMES, If thai falls, pcrfonn ihe some scarcli on ihc library dircciury. and finally 

(on n'S). IcHJk fur a source vcRiun of ilic PACKAGE on Ihe source dirceiory, 

■niciniilal LVAL ofL-SECOfJD-NAMES (on !TS) 1^ 
["FBIN" ■■G01N- -t^SIN' ->"] 

and iin 'leiicjL/l'OPS-20, \i IS 

["FBIN" "GBIN- -NBIW "MUD"] 

lo fiivc a simple ei;implc of how [his mcchnnrsm mny be tailored Fur individual needs consider a 
programnicr dcbLigging^i^iubsysicm. If he wjms hts debugging versions of various PACKAGES to be loaded 
befiire the inst^llcil %cr^ums, he CONScs a new cleniem omo L-SE ARCH-PATH t^o ihal il contains 

([] 'TIBHUD- -LlBHUOaiBHUD- [] ["MDPHOG"] ["MPROG" ">']) 
(assuming ihc flics with bis debugging versions arc on ihe <SNAHE> dircciory), 

4.1.2. Dynamic Loading 

To case Ihe use oFlup level' routines From ihe console, a fcalure is provided whereby tbc Library Sysicm 
cjii ioud ci PACKAGE of functions aiiluinatiailly when one of the funciions wiijeh is jn ENTRY in thai 
PACKAGE is invoked by name. Iliis faciliiy i^i noi ;ivjtilablc Fur use by other PACKAGES oF Functions, which 
imisl rcFcr cupliciily, via JSE.lo PACKAGES which tlicy require: while a human can Tcsulve Ilic difficulty of 
posvble multiple PACK AG E& wiUi ENTRYsof thcsamenamc. a program can noL 

When an ermr is gcncraied bctniise a TORM ts evaluated, and the firsl clcincnl of Uiril FORM is an ATOM 
which has no value, .lud [he p.inicular ATOM is in the INITIAL OBLIST. an error handler csiabiishcd by the 
Library Syslcm determmcs iFihcrcarc any PACKAGES in Ihc ciirrtrnl libraries which contain an ENTRY with 
Ihe same name as Ihe PNAME uF thai ATOM. Iflherc is one such PACKAGE, il i^ kiadcd. and Ihe evaluation 
which got [he error is eimiiniicdwiih the correct viiluc. IFiherc is mure than one such PACKAGE, ihe possible 
eht)iecs are displayed, the user is asked *hich is die desired PACKAGE, and it i^ loaded. IF ilicrc arc no 
PACKAGES Willi EHTRVs oF Ihe correct name, the error is not handled, and so it will Fait Into the standard 
error mechanism. This Kimc procedure is also invoked when GVAL is applied to an ATOM on the INITIAL 
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OQL isr itnd ihc ATOM h^ no value. 

4.1.3. USE-DEFER 

k is iiimciiiiics desirable [D have avitilabli? PLLnciigns lhaurc rarely invoked, bur are mmcihdc&s avjjlabk, 
(One example wiiuld be cenaincrTor handling rouurics.) 

lt\c USE -DE FER funcUon scis up ihc OBL 151 paLh ai Ihat. when a reference is made in jn ENTRY in Lhe 
specified file, rhc correct ATOM is found, but lhe PACKAGE is not aciually liudcd :a [luii [irne. Wlicn a 
riiiic[i(]naia1,ucriimciricsiociilt [he Hinction which iti [he ^alue orunenf Lhe cnmcs in Uiis PACKAGE, die 
Indole PACKAGE will be auW^m^ilitullykiiHlcJ, USE-DEFER hjsiwdconfur.iimsuhkh USE docsnoL hirst, the 
PACKAGE mtisi be in one of tlic curn:nily ^njiive libraries: it may not iiimply b^^ a tile ^ m the Ciise nf USE. 
Second, no reference ma^ he mjJc ti» ATOHs which .uc ciuries bLii do nii[ have vjIjcs uhidi arc applicable. In 
oihcr wnrdi ATOHs which are enmcs because diey jfC (i;iui (raiJicr Lhan functliini^j may noi be referenced 
when iiSE'DEf £R liCTiipkiyed instead of USE. 

RcL-auscUSE-DEFER utilizes the dynamic hmdcr. which Lilili/es the ERROR inLcrmpts, USE-DEFEft will 
nut work in a demon or any tiUicr Mm program which sets up its own errtir handler. All sueh Mdl 
pnjgrjins should SETG tlie ATOM L-NO-DEFEH U) a nun-FALSF. whieh las explained preuously) will cause 
USE'DEFER lo behave ciactly tike USE, !"hcn, PACKAGES containing a USE-DEFER qaii be used wiUloul 
modifKation indcmansand Uie IJkc 

4.1.4. USE-TOTAL 

USE- TOTAL isanaiogiius hi USE. but instead uFspIicing in only die Ef^THY OBLIST of die PACKAGE, rl 
midiLJunaHy splices m the iiiienial OBLIST. This is uscfiil in aocjic debugging situaiions. as ii reduces lhe 
number jf trailers printed and also makes the internai identifiers of the PACKAGE more accessible. 

4.1.5. Translations 

It is (Hxasionally useful lo have more dian one copy of a panicular PACKAGE loaded M once. One 
example [hat c<>mci to miad is [he case of debusing a debugging PACKAGE, iTie Library System coniiuns a 
mcchanMn fur translating' a PACKAGE name into .inoUicr one. Mure specifically, it is possible to tell USE: 'If 
yiiu ever load the PACKAGE nacnedTJflj. prc[cnd i[ was named fiorliisicad,' Note dial :hisdi«s nut change the 
searching and loading proccdtjrc described above, unly die names of the OBL ISTs and so on used lo store the 
ATOMS in thcPACKAGE. 
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<TRANSLATE (ihi.'sirme tse\v:sirin ^or- fatsf 'i 
c.iuscs ihc PACKAGE aid. when iiisUSEd, [o behave as if ii were named hpw. TF/ieivis FALSE. K moans thai 
uWshouldbcrlojidcdas[houghiti*crcnDia PACKAGE iitall: ii^ AT OMs will appear un [iic DEFAULT OBL 1ST 
ora .OBt-lSTXnonnaTlylHTTlAL), 

<UNTRANSLATE iMllim^ 
cauKS any iranslationofu/^/tn be removed. 

<THflNSLAT10NS> 
li&T5 all ir.inslations currently in existence. 

.L-TRANSLATIONS 
TSJi LIST coniiiinrng iill the [rjinsTaiJons. 

4.1.6. The Library Data File 

ln;iddiULml(>ilsabiliiy inmapbciwcen PACKAGES, EMTRYs.imd Qie file^ which conLiin ihcm, die library 
ser.cs imoiher purpose. If a Liaer iscomplFine a fuiieiu>n which USEs n given PACKAGE, ihai PACKAGE is not 
usu.iily going lo be run. All tliaiis necessary h lu eirtmine ihe calling sequences [>fi:s functions, and make 
surcihaiairside'effccis'tsucha^UiedcfinilJunofncw TYPEs) occur. If only these necessary parts of The 
PACKAGE nrc loaded, a prcal saving of lime and space is efTecied. 

'Ilie library daia [lie provides a %kay of achieving this end. When a PACKAGE is added to Ihe library, more 

informaiion than ihc list of ENTRYs and the file conL-iimng ihc PACKAGE ia coilecied, Jn pynicular. 

MANIFEST GVALs, NEWTYPE dcfrniiions. some MACROi .ind RSU8R DECLs are stored. Since Ibis is the 

mfomiaiionusedby the compiler, one can save a great deal oF space and time by using in formalinn From [he 
library where possible. 

If .L-USI-DATFILE is inic. USE of a PACKAGE will loud fnjm the data file if po^ible, U is impussibic if 
the PACKAGE hys changed since the data file entry was created. In those cases, the PACKAGE itself is loaded 
instead. If ,L-ALUAY5-DATFILE js true, an ERROR will resuk if die data file entry Js uutdaTcd: tine can 
tRRET T to cause the real PACKAGE tobcloaded- 

USE-DATFILE is jtisl like USE, esccpl thai it [cmporaiily SETGs L-USE-OATFILE and 
L-ALUA¥S-DATFILEloT, 

J'hedata nie contains, for each PACKAGE, informadon (ur each inicn^siing ENTRY: MANIFEST GVALs. 
NEWTYPE dcfinJlions. RSUBR DECLs. and MACROS. Ir abi has, ofcuursc, [he lists of ENTRYs and RENTRYs 
needed by the dynamic loader. It docs not contain uLha siruciLires. nor docs it conuim luncuons. When a 
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PACKAGE is loaded from Uic diiu file, ii is cffcciivcly USE-OEF£Rcd; ifytiu ond up ncf^ding ui run pan of 
[he PACKAGE, it will be loaded dvnjmically. 

Stimp PACKAGES can noihavc daui file entries. If a PACKAGE defines MACROS ihaiU5C diiu not siored Iq 
Ehc dau file [if [he MACRO calls J FUNCTION, for esL;unpJc), Lhc PACKAGE wril not gei a dau rile entry: U 
wuLild luinnally end up being kiadcd from [he Tile anyway, 

Ui^ possible For a daiafile ciiiry lo become tihsolcie (ifa new vcrsiimofa PACKAGE iscrcined widiuuL Lhc 
library eniry being iipd>i[cd). For this reason, the library is expniined periodically fur such ciHries and an 
jucmpi IS made Ln updiiie the jppropriare entries. 

4.1.7. Run-lime Switches 

'ITicrearc a number urvjiriabie^ which may be scl dynJiniLally [ouiiltirthc Library System's performance. 
.L-SEARCH-PATH 
hTS described ;ibovi? (sec section 4.1.1) is a LIST specifying lhc libraries jnd directories ii* loot in. ;ind ihe files 
10 liHik for when loing to load a PACKAGE. Tliis variable is used by USE. USE-DEFER, US£ -DATUM, and lhc 
dynamic loader. 

,L-S£COND-NA'IES 
as described above (see section 4.1.1) isa VECTOR uf {he second nacnes of files tu look for when a[temp[ing u> 

luadii PACKAGE r'romadireciyry, 
.L-NOISV 

If die GVAL of L -NOISY is min-f AL3E, [he names of PACKAGES oad DATUKsarc prb[cd whenever ihey are 

loaded, dynamically or otherwise. I'his fcBlure may be turned off by SETGing L-NOISY tu rfFALSE (). 

L-UOISY has an initial GVAL of T. 

.L-NO-HAGIC 
Dynamic loading may be disabled by SETGing L-NO-HAGIC to a non-FALSF. L-NO-MAGIC ha? an initial 
GVAL of a FALSE. 

.L-ALWAYS-IMQUIRE 
If a>eGVAL of L-ALWAYS- INQUIRE Is non-FALSE, die dynamic loader will always ask die user before it 
loads anydiing, "lhc GVAL ofL -ALWAYS- INQUIRE is initially a f ALSE. 

.L-NO-DEFER 
IF die GVAL of L-NO-DEFER is non-FALSE, USE-OEfFR will wurk exactly like USE. L-HO-DFFER a 
inidallySETGedlotfPALSE (). 
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4.1.8. Library Utility Functions 

A niinihfrdffunciiiinscxisi which ;ilbw liic user [c> examine librjricsJisL Lhcircomonis, and tclhcvc ihcir 
cmncs. All of [ho functions bcinw ciccpL L-PATH Jind L-OBL jicrepi an opiionnl STRING argumonL a 
library spccilicaLioii. [fit is dcfjulicd. ihcy operate un Uic public I ibrarj. specified by ihc siring 'TIBMUD; 
L]BMUD"'or-<HOLLlB>LiBHUD\ 

<L-LOAD imchii-p:iilnitp hbrary: stringy 

L-LOAD requires a STRING Ithe name of a PACKAGE or DATUM) and auempls lo bad ll from lfbrar)-{[f 

Eivcn) or tlic ciivtcnl tlbrarics. as per L-SE ARCK-PATH, 

<L-FJND fuiHfhn'-wific: <iirifig libnjri':srring> 

L-FIND requires a STRING ilhc name of on ENTRY), rciurninga UVECTOR of iwO'Clomcnl VECTORS of ihc 

fomi: 

[ packu^c-h\- whicii-fifiiriiim-cxiifisiFiug 
tibrary m- whcti-pavkoge- ex a i.i: uriit^ ] 

ITiis finds all of lhcenirics*hicbhavoihc?HLniePNAME biriarc in dllTcrcni PACKAGES. 

The a'm,tlr]ing ftincLiunB are in Ihc PACKAGE -L". raihcr dinn in die PACKAGE "PKG-. hor cjcb of 
[hcse, [he opiional librdr^ argumcni is by dcfauU Ihe library: dial is. "LIflMUD; LIBHUD" or 
'■<MDLLlB>LieHUD". 

<I^-F!LE Dai-kitar.-.irmp }ibrar}':slnns> 
L-FILE requires a STRING (llie name of a PACKAGE or DATUM) and remnis a STRING which is die fde 
Spccificailon oFlhc fde. poinicd lo by Ihe library, which comain^ the body of thai PACKAGE ur DATUM, 
<L-WHERE Dackaiie:\lrins libniry:string> 

L-WHERF Q simtJar to L-FILE but rclums it VECTOR of STRINGS which is the aciiial cuniplcic file 
BpccJIJcaiion of the filcomtaining ihe PACKAGE <i.c., ihc 'real' sloisin a CHANNEL open to die fde}. 
<L-L1STE libniry:sirii\g^ 

L-LISTE prints die names of all of die cnulcs of ill! of die PACKAGES in the library. 
<L-LISTP Ubrary.srring^ 

L-LISTP prml£d)C name? iif a|[ uflhe PACKAGES and OATUHs rn die library. 
<L-COUNTE iibrari-sirmfj 

L-COUNTE rcUfrnsoFIX. dicnumberofeniriesdenncdbyaTTnrdiePACKAGEsin Jie library. 
<L-COUWTP libr(ir):5irmi^. 

L-COUNTP reiums a F IX, tlic number of PACKAGES and DATUMs in die library. 
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<L-lI5TPt naeknife'^irififf Hbrar}-:string> 
L-LISTPE requires a STRING (iheniimciifa PACKAGE) and prints (he names of all of lis cnirics. 

a-PATH> 
L-PATHprin[sali5iaf[hi^nam«of,illiiflheOBLIST5in flic uscr'scurrenEOBt. 1ST paUl, 

<L-OBL qjsm? 
L-OBL rcqiiirc^iin ATOM and returns iin ATOM. Ihc name oflhc first ATOM'S OBLIST.L-OBL is in feci 

<GET ROBUST? Qlam> OBLlSr> 

4.1.9. Internal Library Functions 

TTicrc arc scvcrrnl inicmal fijncuuns used forwarchirg libroria l*hith is. aficr all, l)II Uic Library System 
ever dues). 

■iPACRAGE-FtNO smckai:f:.tinns libraryMmp 
searches Vibniry for iiackogc. IF there is no such PACKAGE ur DATUM in Ubron. It rcuirns -i FALSE. 
Oihcrwisc. \i rouirnsja STRING, which isLhe name afihc file containing przc'^jgf, 

<£hTRV-FlHD €'Ur\':sir\'i^-i}r-a{tjm Ifbrurvs^irin^ y 
searches /i6™o' for PACKAGES conuiimngf«/ri. Ilrciurnsn FALSE ifthcty? arc nonc,oiherwisea LIST airnc 
muUipIc of four elements long, wliere eiich sei of Four elements describes a pitciiiigt: C[]mainiiiB an ENTHY 
widi thiiiPNAME. These elements are: 

packagcistring is the PACKAGE being described, 

file-nomc:stnng \% ihi^ filc-aamc contnining d^c package. 

/7MCJt(jfiF?.-ff^wM'or-/i/5eiiidicarcs, if non-FALSE. dial Uic paci:agc is in facLan RPACJCAGE. 

wjijy?;fl/o/iM5r^se indicates, ifnan-FALSE. thaL the entry is an REHTRT. 

<0£FEft-FlMO vackaee: iirJiie librarvisinr\s > 
returns a FALSE iF The PACKAGE or DATUM is noL round, or a VECTOR uf Five elements describing dw 
PACKAGE, 

rpackage?:aiaii\-or^ false indicates, as above, whether the package is an RPACKASE. 

niime:slnng is Ihe name uf the pacfcage. 

file-HQ'iic:5irins is the File coniiiining die package. 

CT/riei'JiSflsaLTSTordiePNAMEsoflhcENTRYsofthepackage- 

fenlnes:iiil an LIST of die PNAMEsofihc RENTRYsofthcpackage. 



Pmgnun Libraries 



U 



l"hc MJ)L Hrogramming Hnvironmcni 



71 



■iTifeisa]! ihc informaUon aboui the package thai ihc library contains. 

4.1 .10. Library Maintenance 

The PACKAGE called "LItP" cnniains ftmciions used lo modify libraries, and lo add, updare and dclcre 
PACKAGES and OATUHs. It should be noicd thai libraries do not contain the bodies of PACKAGES and 
DATUMs. Riilher, Lhey pmnL m flics which contain these. 

<LUP-ACT hbran\sinn R> 
requires one argumcnu a library spccificaiifin STRING, and activates the lib rar>' st> specified. If (he library 
doesn't ex isL il is created. In order ili proiccE the library from Uissdue to system tirMni criishes, activating ^ 
lihraij' fdr pnodirejlion copies the ]ibra:> data files and lock^ the library so [hat no one else may mihlilj it. 
Mi]dificaLii)Ti^ arc made to the copies, which arc renamed buck over the ungnia]?; only when the libraij i^ 
expliciElv desai^iiicd. Obvkiu^ly. PACKAGES added icj a Ubrnry arenr available, esen lo the person adding 
ihern. until [he library h deaetivated. 

<LUP-OCT> 

deactivates the currently active library. 

<LUP-ADD-PACK iKickai^t^ file: strin g 
\ilidoie?:booieon 
dalfile- eiiiry?:boolean^ 

package-file is a file specification of the file containing ihe body nf the PACKAGE to be added. 

LUP-ADD-PACK will find the PACKAGE staicmcnl wiibin the file (or complain ifiican^t). 

updisie? is opiFOnaL and if noii-FALSt. i^ allows the PACKAGE to update an older version of itself, 
something which is not otherwise allowed. NiHc thau since the library points lo the file whidi contains the 
body of the PACKAGE, that file should not be deleted later, else the librjry won't be able to find it. 

da/Jiie-eiiir}? is by defouli T, but if it is FALSE, nu entry will be created in the datfde fur this PACKAGE. 
Since datflle emnes are generally useful only in the compifer (and similar environments), it ducsn't do much 
guild to have them for PACKAGES that arc only called ftom top level (eg,. FIHOATOK). 

When adding a PACKAGE to the public library, die PACKAGE'^ object file should be copied to ibc 
appropri,kte library ditccLury {"LTBRHn" on fl'S, or ■'<HDLLIB>'' on "lops^O) and the library pointed ai 
thill copy of the file. If no library is aciivated when LUP-ADD-PACK runs, it will acdvaie "LIBHUO; 
LIBMUD" or-<HOLLlB>LJBHl*D'. 
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aUP-ADD'DATUM 'j^i_ie:sirms 

updiife?:boo!ean> 
i. an^lufious tu LUP-ADD-PACK, Mm^ 3 DATUM 1. ih. ^tiv. irbran'. LUP-ADO^DATUH require two 
STRING ars.mi^ii[s,Lhcnaaic.rihc DATUM ;indlhc.pccincaLion of Ihofik^ 

DATUM. LUP'ADD'DATUH will :^m th^ same tipUonal .rgumcm ilial UUP-ADD-PACK accepts, with the 
WTncrnt^iinmsanddcfoulLlTicsaincicsUiclioiisct^rKrominfilhcriks^^ 

LUP-DU requires one STRING iirgumcnL the nami^ .if ii PACKAGE ordnLisec mid dolclcs di^.l PACKAGE or 
DATUM fr,>m ihc c.rro.lly ;k:II.c library, LUP-DEL di>cs nm touch (he m. c.nu-ini.g The b.dy uf the 
PACKAGE or DATUM. 

L-.VISCS The mo pointer of /wcA^i:^ lo he ch.i^ed tn poinl u^fiie- ^hx^ U :i f,i>;[or opci^iion th:.n rc..dding the 
PACKAGE, and 1, J5 intended for .Ituaiions in which an c>xisUng libn.ry lile has been moved for some reason. 

CLIB-GC libT(in:stntiii > 
g.r+>.,se-collects die library in que^moi. if thi. l^ required, G.iibcE^llccbon is .H:c:isioti<illy iJseful since il 
causes .11 ihe elements of e^h hush bucket to live ne..r each odncr iii the library file, Uius improving 
perfiinnance during £ean:hcs. U jIso jIKk^Ih 5omc free storage li cich pjge of die Tile. 

4.2, The Pufe-mapping Library 

l-he basic ide. behi^id Mm pure mappmg is lo separate out die code p.il of RSUSRs in compiled 
progn.ms, Ilie RSUBRs ihemseKe. are ):epi m . file fcno^n a. an FB[N (sec 13). Il.esc fiSUBRs do not 
eonLiin the code but inistead pomt to a file s-hich conuilns the code. m.S schetnc has ^veral advantages. 
Mr^ the code can be dynamlcany mapped in when needed, m^ ^"o'-s Mm. to use more code dtau will fit 
in the virtual address ^>kc of Uie machine it is mmng on. Secondly, since tlie code is pure it can be shared 
between several Mots using iL Hnally. die FBIN Hie itself is smaller than a cotresponding NBIN file and 
Ihercforc FLOADs more rapidly. 

In the most basic implemcnutbnuffBrNs.d,ere arc three nie.: the FBIN. th.SAV file (which CO 
the codcK and the FIXUP file, which aintalt\& the information neccsiary to upd.ite the SAV FILE fur new 
Kic-^ of MtJL As « obvUms. this entails a lot of files, and p,>[en[ially a lot of file directories, l^e Mdl 
l\,re-m.pp.ngl.ibrary reduces diis storage overhead by collecting an of the SAV a/id FIXUP files togoth^^^ 

TTic scheme uses m large data bases, each conutincd in t>iie file. ITie data bases .re called 'SAV' and 
'FIXUP', njcscfilcsswrcaUcurrcndy existent SAyaandfiXUPsfof all Misting vet^oniofMDi. Kach data 
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base is sinicJiircd likf ;^ Hlc system, Thon^ is a matn 'dircciorj" ihiii p.iinta Lo a number oi iiiher 'dircciorirt'. 
each uT which puinLs [u .1 number of ■flics' inside ihc daui base. In this scciiun Uic ward 'Hie or 'direcmr^' in 
qi.0C« ji^fer^ lo an objcci inside a da^is baw. Uc files conUtinrng the dau^ b.^iscs are r.mcd ton n^S) 
■'HUDSAV:£AV FILE^ .nd ~MUDSAV:F1XUP FILE', On Tcnex/TOPS-20, ihey are 

■'<MDL>SAU. FILE- and "CMDL>F1XUP. FILE-. 

4,2.1, The Demon 

While iill Mnii can read fr(>m Uic Pure-mapping I ibrnry, dicrc is only one program which can wriie irtlo 
\L ITiis is a mainuiiner demim vhkU runs i.nce a day tu hecp iho Library updjLcd. 'Iliis deinon can add 'Hies', 
ddcie ^files', and add siibdircclurics' in bi>lh daia bases, 

■in fiiciiiiiiie updiiiing onhe Libmry Uiere isa direeWr>' nn which to pui Hies Eo he added ;is well :rs (lies to 
indieaie *h:il is 10 he deleied. 'ITiJs is Ih.' "HUDTHP" dirccmrv .in IIS and [he ■'<MDLUB>" directory on 

renc*/^fOPS-2a Any nic on II with [hescamd name □rSAV;j^^^;nrFlX;,.^,M*here//^i/jisa2ijr3 digit MlM, 
release number) will be added to ihc apprtipriaic data base. If die files "aELETE SAVS" or "DELETE 

nXUPS" exist, dicndiey will be used 10 delete 'dies- ffom the data bases. n.eseniC5m[(y be ASCI! nicsoF 
die fiimi 

filcnismc! [SPACE] Jileriome 2 [CRLF] 

I 

An example Ufa valid delete file is as follows 

NCODGE SAV53 
INCOOGE SAV63 

'Hie demon will ignore any deletion requests for ^files' noi tn the dara base, 

'Ihe demon dc>s jis work in several passes. The basie passes are die delete pass, the planning pass, the 
update pass, and the salvage pass- The ddeic pass deletes -files' if either 3 "DELETE 5AVS" or "DELETE 
FIXUPS- file «is:s on i(s working direclory. Ihe planning pass builds a plan file by examining the wortitig 
directory and cakdaiing where ne« 'files' will be ptod in ihe data bjses, ilie planning pass builds two files 
using a spcciiil iniemfll format. These files will be used by U.e update p^-ss Ui add files' to die duta bases. ITie 
planning pass also enlarges tlie data base files as much as necessary lo accomodate die nc^ 'files'. Ilie update 
phase reads the plan files and adds nc^ SAV and FiJtUP nies" lu Ihc diiL, bases. If a 'directory oveiflows,a 
new 'directory' is added during Ihis pass, and all the 'directories- are recreated (i.e.. all die 'files" have to be 
rehashed, sinec they were oricnully placed in a 'direeiorj ' oceordmB tt) a hashing alg.^riliim based on the 
number of directories-]. The salvage pass is used to pick up any free storage that has been lost through sysicm 
crashes or Inst diruugh holes created during the updating of Uie daia base. 
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llinnighcmi ihc cniTrc proccwin? i>f ihc data ba^M aricinpts arc made lu keep ihe daia bases in a consjsieni 
state. Dircciurics' are iipdaicd cinly nftcr files' arc guaranteed u> he m ihe daLi bases. I"hc piyn files described 
arc used VJ keep Ihe daia bases con^isicru incase Lfie sysiein crashes ^hilc ihc demon Is in [he update pass, 

A major a^iiil in ihc design of the data buses is to allow recovery in ertse of demon errors (ir system dist 
cra^es.Tatlii&endthedatabaiK are backed up on tape every odicr week. (It wdu Id be dumped mure often 
but the file is currently over r^vu million wurds lung), iTiis ufcounc lea^L-s [he p:i>blem dim 'files' added ra 
the d;na bases between duntps cuuld be Itisi in a di^l^ cr.nsh. To iiid in rccuvcry From such a crash, alt Tiles' 
udded between dumps arc copied tiUlie 'MUDRST" directory (on llSlur the ■<HQL,SV>" direcuiry (or 
Tenei/'TOI'S'JO). Moreover a Hie is k^pi lifting all Uic files" iiddcd during the pre%iou^ week, Ihis file is 
CiiHed "ADOEQ FTLES". All litis infthrmatiun is delcEed once die daU base is dumped lo tape 

4.2.2. User Programs 

Occ;isionally it is uscfiil fcir a user lu li^E [he datj base 'dirct lories", (o sec Jfceruiin "files' arc in Jt. and copy 
files' out of [he data base. DBWA IN is a program which allows the user [o dtithesc things. 

The folluwing are functions available to die user, 

4.2.2.1 . Listing Functions 

^CLISTF daiii-base:sin!}g> 
is used to list all the 'files' m a dai-i base. Ii takes one uptioiul arguineni which is the name uf die data base 
Icilher 'SAV- or "FlXUP-y IF no argument is supplied, "SAV is used by defaulL ("ITiis is always the 
default whenever a ftmciion takes an opUurval argumeni specifying the datii base,) CLISTF prints each 'file^ 
its IcflEdi. and where it is located. The farmuE of a (ine of listing is as follows: 

fr\l fn2 size biock 
where>/ is die first ' file' naTne,7JjJis the second * file' name. size'\% the Icngdi of die 'file' in blocks f 1024. 
words for SAVs. 256- words for F IXLlPsl. and block is die bfocfc at which \\\c "file" starts. Th'cs is the format 
used wbcnevcr listing 'files'. 

;LI5TF datn-bd^csirini direcrories> 
is used [o list all die dircctones' of an entire data base. It Likes two tfplional arguments. Uie dfifa-base to be 
liMed. and a specification of which ^directories' to lisL Ihe ^dirccionei' may be: 

aFnilistthe'directorj'qsecificdby dieFIX; 
aLISTofFlXs: list die 'directories' specified in the LIST; 
[he ATOM ALL; list all ihc direetoncs' (this is ^e default), 
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<FLIST if(iia-base:siriag> 

lisLs free areas of siurjgc in ihc data base, 1i llsis ilic free sioriigc in ihe form: 

- 

leus'h block 
whcrc/p«fi/fiis[hclenfithurihcarcaoffrccsior.i£onnd WorAlsihcbKtV mimbcrof (he SLiriinfi blocLITiis 

fuiKiion ijfccs one tipiiimal iirgumcni which is Ihe name of ihe daia base w be examined. Ai ibc end uf Ihe 

liable U will idl ihc touil amouni of free storage. 

4,2,2.2. Find Functions 

<FIHD-F1LE fih:'iirnic ilii/a-l'iae:iiniig> 
feu?cdl[ifmd a specific Tl1c\ Ir T;ifccsasiLsargumcni a'filc' speciHcaiion and prinLS Uie nic n^nmc along wiih 

Uic innirniiHion prinred hy lUc listing riinciinns if Ihc Tile' exiJiis, mhcrwisc il reiiims iin object of type 
FALSE- Jlic 'fik' specillciilion niiisL be uf [he form: 

wberr -/ffb cither SAV or FUUP:ind;jj/:md ^JjirellKfim and setiind Tile" n.iTnesrespcclively. 

is used III Hnd all Tiles" willi [he same basic njimc. disregarding Uic leading digilfs) which :irc ?dded lo make 
'file" names unique, h tflkes one required argumenl which is [he>/ It) look for. U uikcs nin oiuitm.-il second 

argiimenl which is [he dain-biise lo look m. Kor example die call 
<SPFC-flND "MAIL''> 

might print: 

HAIL 5AV53 S lAQ 
1MA1L 5AV53 8 360 

4.2,2-3. Other Functions 

<DELETE fitp:sirmc ^la-baseisirin^ 
allnws Lhe user to dclcie a Tile' fntm a data base, Il takes Ihc same type orHle'specineaiion dial FtND-flLE 
lakes, llie 'file' you specify will Ijc dclcied ihe nesi tune the demon lliat mainiains the datn bise runs. 

<GET-FILE fik-iiniiv im^ui:sini}g (taiii'btJSP:^ini:g> 
allows [he user to rciricve a 'file' fnm the daLi base, li uifecs iwo argifmenis. ITie firsi is the lilc' spccincniion 
ofUicTr/f lo reirievc (itit uf [he d;fla base and the second is ihc vvipul file yiiu wish lo copy it lo. 

<STATUS> 
gives the infiirmaiion -ibuui Ihc slate of the data bases. It tells [he ntnnher of 'files' and the amuiini of free 
siOMge in each data base, STATUS tiikes nu arguments. 
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4.2.3. Using DBMA1N 

ITicrcaro scvcr^il wjiys ro use DBMAlN.hcan be used by typing 
iDBHAlN Jbucrioii argl ... argn 
Ui DDT. ThcjcHinc is tiflhc romJuiK''on argl ... orgj;, where Juiictioff i? Ihc ndmc of the function lu be used. 

H(sr example 

iDBHAIh FLIST "FIXUP" 
will lisiU5cfn:csii)rdec block fur the "FIXUP" diita base. DBMAIN will kill itself aBcr fini^hinB nnd can be 

killed Ciirljcr by lyping fS. 

ITitjjrHwfmenMoncd above can be miKJified in nlliiwoulpuno be muled it) a file. Ill is cnn be done by 

preceding Ihc i\\irmit\jfi-thie w\\}^ j string specifying die file mune uflhc iMpui file. 

:DGMAIN "LISTOF SAVS" CL15TF 
will priKlucc H-ihsiing of die flics in tJie SAV ddin base and will prim dils in riimiauiin lo die Tile "LiSTOF 
SAVS". 

-" - 

4.2.4. Garbage Collection 

One pFobTcm of the Mm. Purcmiipping Library is ili;ii many usdcs? SAU mid F 1 XUP "Files' remain as ne* 
revisions uf user pr*)firaras arc created. To alleviaie this problem dietc is a gjrhagc collcciion sysEem for the 
databases. 

Ilic major g*>al of Ihii scheme is [u deienninc which ^files' in die diilfl bases nre nij lunger useful. To do 
Ihi5 all files in die sy^iem arc scanned ro see whai SAV Hies arc shll poinicd ro {iiui indudmg rhiisc pointed ro 
only from within ITS archive files). A SAV 'file can be poijiled Ut Trom FBIH files and SAVE flics, A SAVE 
iilc contains pointers in iLsPURVEC (Pure VECTOR). All FBIN files shuu]d begin *iihsorpicl!]inguf the form 

'<PCODE fi!e:sinng> 
whereyf/eisdicnamcoflhe SAV Tile" ass-ciaied with [his FDIN. If an FB IN has more than one SAV 'fiie" 
associaicd widi k dien dicrc can be sevcrjl PCODE FORMs at ihc beginning oF the file. For purposes of 
giirbagccolleciion. this FORM (or FORWs)/j^wJ be retained whenevcT an FBIN nie is cdiiedMf these PCODE 
FORHs disaRiear. dieir poimefs to die SAV "files' will go widr diem, and ihe SAV "files' might be garbage 
collected 

Garbage collcclumsprucccdhy looking at every flic un tlie disk, building a lisiof all TtW pointed to. Rie 
program then cxiimincs [he data bases and any "flics' which arc not poimed to arc deleted. 

it is possible dial dclcijons can fragment the free area in ihc duui bases. If compaction becomes necessary, 
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there exisLS a wulm to do i n -place compile li,.n of Ihc data bases. 

4.2.5. Internal Structure 

IT.. "SAV" a.d "FnilP" dau, base, havc.imlbr foa..,. n,,, ■„„, ;„ ^, ^^ ^^ ,,, p„,„„, ,^ ,^ 
cntnc m «ha, is ^.,My a bosh tabic. As^^inted with each data ..so i. a main 'dirccory (■„= hash t^bl.). 
17-1. ■d.rcc.on,' is ..scaled iu t[,c fir.t 1024 word. „r U,c nio. Uis mail, 'dir^to^' points ,„ other ■directoties" 
t. the dut. base (tl,e hasliine hi,ckm). K.ci, of ti,eso ■dircc.ti.s' i. 1024 words iong, T1,c fi,st -nio' natrc is 
used lo determine which -dfrcetory the 'nte- is »n,-n,c strucUire of th. m.in 'direelory is „s follows. 

tord 0/ inrmbcr n of entries in the m.iin 'diiwot^' 

«ord! 1-n/ block number of c.ich 'directory' '" ' 

■I1.ere cnn be up t„ 1023 'dir^iorics- ai.d each ,>r these ean contain i.ppro.imntely 500 -files-. -ITiis provides a 
virtu III fy imTimkcd 'dirH:[ory'. 

Word nfeach -directory gives its ieagtb in words. From Word 1 on hic 'directory enin-es. All cnlrie* 
have the same two >vord f.>rmaL ITie first word contains the the fliBl 'nie- name in SIXB IT. llte s«ond word 
contains tlic fiiliuning fields: 

'^ersiofi revision uf M^L ihfs 'file" belongs to (blwa-l?) 
block in Uic data base where Uiis 'file' siaris (bi[s 13-35) 

1T1C ■direccorics' arc s..,tcd by .irici namcricuT ofxlcr (..e.. AAA SAV53 .o,i)cs ^ 

Karh d... base conpins . free storage table. '|-hjs t.b!. .^c.pies the .ec.nd 1024 w^rds oFtbc data base 
Ihe nrst word of die t;.bl= i. the number of entries in ihe free storage t.ble. The remaining envies define 
areas nf free storage. The,^c are of die fomi 

leusih. .block 
wl,c,= /™g,/, is U,c member of blocks for d,is free arc^and iM is the block number at which it slans. 

mere are iwo major differences between the 'SflV" data b™ and the ■■F I KUP- dnta base, -lltc Hrst deals 
with bltxii: si.es. In the -SftV d.nta base the bl,.ct si,e is 1024 words. In ,he "FIXUP- data base the htock 
size is 256 w,^rdl lliis smaller si/j; allows for more compaction of these snuill 'files-. 

lllc second major difference is that while there cat; be many versions of the s.n,e -[lie' in the " 3AV" dau 
base (e.g. NCODGE SAV53 and NCODGE SAV64), tltere can enl, be „ne version in the -f IXUP- data base. 
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'niisi^ir be ihc FIHUP mc' miisl irccnUy added .nii: currcspimjJinE SAV Tile" fnr this FIXUP 'file' should 
cxiia III oHuw Ihc 3AV File W he updoicd for liiiun: Mnl- revision^ 
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5, The Compiler 

Hic puiTxt^ iif ihc Mm. coijipMcr \s lu iransTfirm Inicrprcicd Mm. cimJp int(> dSscmbly Ijiiigujjgc. '\l\c 
compiler cEiuics in K^rrral Incurnaiions riir various purpose. 

PCOHP is a prDgrflm w-hJch runs the 'in-suMcd' compiler- that Ft ihc une which is mosi dcbugficd. supporied, 
and otherwise utTiclal, llic'P' siands ftjr puriripil,' hicidcnuUIy. 

NPCOMP Is a program ■*hich mns a newer. Jess wcll-dehuggcd compiler, if [here 'a one. NPCOHP is often 
where developm cm worli of tiiu! sun or nnuther is being debugged. 

'iTTC'llHiich CiiTnpilcr/ oPen CiiTlcd CoMn.M. iJniush stricEly spejfcLne ihc name refcrs m a diircrci>i pmsr.im 
(sceseciion SJ?) isii pntgriim ih.ii cniiipjles. .ii uighi. Umse compilniions ihai h;ive hecn queued furiL 

"Ihc rcmninder of ihlschfipiflr describes Elic i;|M:cincs of riuerjcnon *iih ilic compiler. iiiduUms u scciion on 
iis iiiicrndls. 

5,1 . Interfacing to the Compirer 

■|"hc i.|icrfliion of ihc Mill ctimpiler Is coninilTcd by a few very higli-ltvcl funciiona imd a ^omeiimcs 
bcwirdering array ofATOH^ whose vjilucs are swJichcs ond data. -\1\k scciion will describe each aueh ATOM 
and jfs use. The reader shouTd be.ir in mind [hjii in ihe normat cnsc he will he using Co\rii.\T to sei up his 
compilaiTons dnd ihu^ *iU not have lo deal dirccdy with Uicsc ATOMs and calls. 

5-1 ,1 . Compiler FunctJona 

<C0HPIL£ iowtt.fi- 'K rfiiu- Of Hi! auiiiui:channer > 
is die lowcsi level call iodic compiler. It compiles en nciIy one rUMCTTON <ur a LIST iifdicm) and prims die 
Rcncraied code en die CHANNeL given as die second argumcnL COMPILE is used primarily for compiler 
debugging, 

<FlL£-COMPILE fUfiu/.slrme i>utnul:slnns > 
FILF -COMPILE attempts lo provide a convenient inierfaca between Ihc user and the compiler. The user 
simply gives FILE -COMPILE the name ofan Input nic. and item do all the resL The user may specify uihcr 
infonnaiiun about uuipui Tries, compiler modes, etc.. but if he ducsnX rcnsonabTc assumptions are made. 

FILE -COMPILE wofk^ in the fullowina way- Kits! it reads in ihc inpui file and cuTlcets iniua LIST Ihc 
names uf air orUic defined FUNCTIONS ihjt it finds, li sorts Uiis LIST based on which FUNCTIONS cnll 
*hich uiher functions. Ihe Functions which call no oihcr functions arc at die bcginnins of the 
LIST, followed by those [hai only call FUNCTIONS ihai call no other FUNCT lOHs. and so qn- Groups of 
FUNCTION^ diaiarcmuluallyrccufy^c arc collected in LISTS Subordittalclo the main LIST, 

9A 



H..c:h FUNCTION will pnxl.i™ =. i^pamic RSUBP. COMPILE l. c, tiled .ucc«siv.l> <m c.-wrh mcmli«of th= 
LIST uFFUNCT IONS. LlSTi .^fmuluall^ rccuraivc FUNCT lONs arc n^lsti passed U> COMPILE. 

AfLcr each FUNCTION or LIST of FUNCTIONS \^ ct.mp.lcd, lh*= r.SX.ltmE RSUBR is wnlicn mlc a 
.^mpor.o' mc to .n.bl. more c.nvcn..., cr..n recovery. Thi. ftc i. wniicn I. .uch . w.y O.M. no maUcr 
^vh^n:hcsys«mi:riiSht^.ihcc.>mt=nKt.rihcLcmp-.rarjr.]^:.rceu-.rani«d«>bcinacons^^ 

When >.ll is c«>npn«l,FlLF-COMPlLE«rU«o.,t.nouipuim.wlikhl.idc<.urano. he Input n^^ 
111., ^U FUNCTIONS have been .(^placed with ihclrcompilctlaH-nlcrpatti ir^in^.f Lhe rUNCT.ONs Jid net 
e..npuc ducmpr.>Br.m.mer em,,. o.e.M..p,le.b.e^U>,>.. FUNCTIONS .re lea u,.h.n8eJ^ 

nurlng .« operation. FILE-COMPILt .n.nmLilns u -ptCORD" HIc ..hich cnm..lnf= ,.11 "f.h^ mci^^ftos. 
...nnnes :.nJ ertor m«^.g« pn^duccd hy iho compiler. U m.y up.. ..oily pn^du.c ;. llsLing .^f =Uc objt.. ™de 
pr,KlL«cdJnMn. .s.emMcrf.-.....L mis ■. prmn.nly u..r'ui for c.n.pn.r debuftfiing. t^oic th.t . ^.m.wh^i 
iKSCTimplcic li^tme may be ni,»le Ji a laicr lime. Sccscciion 7.3.) 

Onus FILE-COMPILE usL-allyr^ns as:. dcT„.m-:,.M COMBAT iONE. It, this c^sc anmbcr imerFii« 
called FCQMP resides aWe FILE-COMPILE. Tl.i. i.^."fnce re^ds nies .h^i m. con.piL.don .p^ifLe^Uons 

and poswsthem m F ILt -COMPILE. 

<FCOMP It.INCHAW iiimil-nfc uaumiJUtf 
As m.>«compilcrt,s;^e is based .mCQMnA. plan ril«,FCOHP is die mm.-secn driver ofihe Compiler. (Note 

d«,l the X in front e^f . INCHAN causes ihe CHANNEL ihc PLAN file is being read ftum to be p^isscd as one 

arEument to FCOMP.> 

<STATUS> 
i. :.n lnfom,atlc,n.^ Funetion; ,i tells ho* fi^r die .^mpll.iion of a given aroup has pr-^n^HCd, which 
FUNCTION « bema worked on, and how many FUNCTIONS remain lo be cumpiled. It al«) prints thr 
acrumul.led rcai time and cpn time .ince ihc begLnning of d^e to^pil.tU.n. Obviously, you must tG the 
compilation lo uic It, butwc wction SJ. 

5 1.2- Compiler SwHctiBS 

l-he o-lls Ic. .he vDrhms con.piler drivers an: r.ihcr short. Fur the simple r=a^n Uiflt ihe conLr«IUna 
Infonnaiion Is passed lo ihe compilei as Ihc LVALsof asetorAlOMn. 
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<SET D£aUG-COMPlLEl- bootean> 
tby dcfjiuli FALSE) causes fTic compiler Iip gcn^r^iL: Mira mfurmaiion Jboui what ii's dfiing. 1"his inruniititlon 
L'i in Uic form uf "wjiminEs" pntduccd wlicn Ihc compiler wus forced kj scncniit; Ick thjn npdinal cndc. For 
cx.iinple. invwaciimsurtlip iinUimciic SUSRscnn be upcn-cumpikd if the varlahlw uMd cnn be dctcmiincd 
I" be exclusively FlXps. 'ITic debugging compiler ^"111 wjm yim If it fs forced lu rcjiin ;<j less efficient 
ariifiTncjic ca\\^ 

<SEr PRECOMPILEOr- fih:sirii\s> 
Often, a [lie "F FUNCTEONi; hjg been Compiled boforc. and now nnly a few FUNCTIONS hfivc been iipdaicd 
jnd need M be Compiled again. Mu«DfUie file isaln?.idy qorreciTy cdmpncd: it is quJtc %v.-rticfui lo recouipilc 
die eniirc (hmgr IT a PPECOHPILEn Isfiivcn. ihc file is lii:iUed iiefnrc com p Faction: ntiy fmiciioJiTi which hnvc 
Qirre^ipoHdinE RSUBHs in Uic prctomplLiiion, jnd whicii .ire no( on i^e RFDO M'ii, nrc nm recompiled. Ii ia 
nppmiiriiiie ui ^ecily Elic lenipomrj nie ;is a prccdmpiiaiiim IFyour prcvicni', c[im[>(i-iilon *iis iiuemipicd by 
a sj'^tem crash. 

<5ET PEDD [ - Usl-u/-alomi> 
REDO Is a LIST uT FUNCTION numcs lo he recompiled, rcg^iidZcss ijf whelhcr or nuj they -ire i:ornplTcd m Ihc 
prccumpiladon. In Lcinjunclion with PJ?EC0HP1L£D and PACHAGF-HODE, REDO alluwit compildtlon of 
prcci*.-ly thuse fUNCT lONpi v^liich have been chiingcd since rhe List cornpM4iUun. Nate dial ComhaI" win set 
up iliesc vaLuG^ [niPi-e-iir-lc^?; .iiKumiiiically in musi sliuaiiojis, 

tSET PACKAGE -HOQE I - stringi 
Iftjs $||[i[ifd be die name i^\V a PACKAGE, which is assumed [o be die PACKAGE be! ne compiled. FUNCTION 
names in (lie REDO LIST will be looked up in die appropriate PACKAGt OBLISTs IF this flafi is scu Iheicby 
uvingsuinc typing uflmilcra. 

<SFI TEHPNAHEI- ftie:sirins> 
niic canipilcr wriies in termed i-i|e re^ulLS lo die LCmpurary file, which is normally [he fiTe 'minfip-.Jhm >" on 
lis, where ynnns ihe flrsi name ofthe LnpuL HJc. k is rarely (IfevcrJ necessary to cliungc Ih^it defaulL 

<SET SOURCE L- fiteislri'igi 
Scuing this switch caijsci the compiler ui wriie out die assembler input it gcreniies. This fi sintPtiiines uKful 
Fur ciimpiler debugging. On rrs. such oiiipui norniiilly G"« ici - suame.fit'it SOURCE", where Timi la the 
first rmmc uf [he inpui lite, 

<SET SPECIAL!- boolean^ 
llic compiler noonally asaiimcs thnil vjiri;ib]ca which areni dcchircd SPECIAL aren'i SPECIAL. LTiis means 
thai they wm be available only m die PSLJBR in which ihcy arc declared: SPECIAL variables are biiund on 
The cunirol stueic, jusi iis Ml variablizs are in Itiierprcied ci>de. If dil^ flag is T (by default FALSE), nil variables 
will be assumed to be SPECIAL unless declared nihct^ise. lliis Is analugous lo SPECIAL-MOPE being 
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SPECIAL, and ii is not rccommPrrdcd ihalany codcbc svriHcn using this convtin lion. 

<^SET EXPFLOflDl- boalfan> 
If true. F LOADS in die (lie bcljig compiled will be cxpiindcci ai load dmc: whai *a4 FLOADcd before will be 
ircalcd OS part iif ihp Tdc. EXPFLDflD isesnmint^d by GROUP-LOflD. and nut dio campilcr iiseir llic dcFauli 

Is f ALSE- 

<SET EXPSPLfCSr- l<f/it/tfjtl> 
rf true, iihiccis <if lype SPLICE iprimiypi: LtST) whkb nTC cncnunwrcd in the tuurso uf EVALing ihe fonns 
pnicMscd by GROUP-LOAD will he spliced dirccily Iniu ihc gruiap: K a ihcrcfoic a loi like EXPFLQAD. 
EXPSPLICE ii emmiiicd by GROUP -LOAD, and not the com pi l<? I iLscir. 'Ibc dcluull 15 ihcrcforc FALSE, Its 
unly knuwn use ha-; hccn lu nuike funciLons iit loud lime .md hjvc Uicm cunplled. 

<3ET CAHfFULl- boi'tean> 
OcTiiulbrU} T- ir FALSE, the eompiler will om|i most iiFthe bounds-clircklng eiidc it nonnally BCneriii« for 
Nliis, PUTS. ,indsu <in. niis ifbviouTily will male itic compiled ciwJe run f.viUu. buialsd ninkcs ddbuESina die 
cimipilcd code nearly InitJiK^Tble. 

<SeT flEASONABLEI' baiflean> 
llcf^iilLS LO T. If FALSE, the compiler will gcncr.tic rcasonpbic code only if e\rr^'lhius n'ff called from the 
Functions being compikd is Imidt-d in[i> the cijmpllcr. A c:dl lo a fiinetion not lojided prodotM iin EVflL of a 
FORM. tTierchy ensuring th.Ti sodi constructs as "CALL" In die Ciillcd funetiun will w-ork correctly. 'Iliis is 
udmiiledly pretty uikrcositnuble (if not paranoid), whence ihc name uFdic svitch. 

<SET GLUE!' boolean^ 
Pcfaulisui T. If FALSE. Uic compiler will not Bciieraic GLUE biis. As you fil way? want GLUE biES. Uicrc Is 'lo 

rcd&an to fve^cbange ihls. 

<SET MACPO-COMPILEI- boo}ean> 
Dcfatilis to FALSE. [Fnon-PALSE. ihc coinpllcr will compile r*ACHOs inlo RSUBRs. This doesn't cbanftc 
anything produced by macro cipaiislons. but docs cause die e^pansian lu 5pccd up. Since die compiler 
expands ibc in^ro and dicn conipUcs the expansion, diis i5 rarely iisctfiiU 

<SET rtACBO-FLUSHl- baalean> 
iy;fiiii\is lo FALSE. If nun-F ALSE. HACHOs which nppenir in Ihe file being compiled will not appear la Oic 
resoUing HO^N. 'ITils saves space, at ^C expense uTmakinB dcboggmg harder. 

<SET HAX-SPACEI- l)aalean> 
I^Hiulis [o FALSE. ITnun-FALSE. the coinpiTcr Uuslies Fnim core most of e^ich flSUBR once it has been 
compiled: only Ihe DECL is needed lo help compile other funcuonSr Since the eniire RSUSR is written nut in 
tiie lempoiary fdc, no information is loSL This can. for eompilDUons which are too Targe, result in 
considerable improvements Ln speed, primarily because more space is available in the ML»I. and less time is 

InicrfacinB to Ihc Compiler 5J. 
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spirnt JTi Ehc garbJLgi^ ceiIIccIuf. 

<SE1 HflinV-ANALYSIS!- boolean> 
Tlcfaults m T. If this is noi seL ihc ctunpllcr will noi perform ihc complex type checking it u^maliy docs. If 
HATRY-AHALVSIS is FALSE, the codc wtlJ be eencmicd fjsccr. as typc-sinnlyrils 15 expensive, bui will not 
execute nslastr 

5,2. COMBAT 

■J"he usu^il mr[lia<I uT lic^ihng *iTh tlie a>mpllcr is IhrmiEh the prosrjim CoMii^i. ^hov specially is the 
prcp:ir:itl4^ri uf "pTan (lies' lo be lo^iJed hy me ciimpiler. COmHa I is Ji pntKr;im which knows iiboul e,;ch itfthe 
pre^'inuily dcsciihcd ccimpilor Rwiic:h« and [lie iniciDcLiDns .nmung ihcin. It hjw an CMy-ti*-«se inierhice, ivx 
-iblHiy U> siore comminily used "plmi fiTcs' as C'lUpHaii'ii typcy- and in general is desigjied u> niaVp using the 
Mill eamprTcr a lesTi-cumherviine task, 

5.2.1 . User interface 

CoMhAi's user inicrfiicc l< p-mcrncd after, [hough nut ideisUtiil In. -1 CALICO intcrfjcc ]1 L In p-irticular. it 
c*pccis in FMpunscin ;iay gjieti prnmpi .t particular type iiFlnpui frnm the usor. which \jiny he n flic name, a 
"symbor, or imL Ordinarily. Uic type of input cnpccied is jndic^ucd by ilii; 's>n[ue{ie prompt' which fuLluws 
the ■iOnTi;]l prompt: this lEnnc or"( F ILESPEC)', "(SYMJ". and '(TEXT)\ 'I'heTueBle werbnsiiy' euinpilation 
type uirn&iheprlnilngiirthe'^vniaciicpnimpion and nfT andciiusi?!< a tiiJkhr file m he wri lien out wh^^n used. 

A number uf^eei^Tchnnicteis are dcHned furany oflhese Eypcsorinpui 

tO: Clca^s[he^npulbu^Fer, as in Mdi_ 

tD: Redisplays the inputbciiTer, osin MtM^ 

tL: CIcors Lhe screen and redisplay! Hie inpul bufTcn ss in Mi3L- 

TG: Wlicn fil^en as ihc nreicharacicmf on answer, flllow^s one to get ihe answer from a uscr-dcflncd type. 
See the sceiion on tailoring. 

rQ: H-isspcciul elTectiwhen a compLlatiiin plan Is being miide(sec below). Seeal^o Ihc section un Hie name 
Inpul, 

*Rl Ciniscs COMRAT to "back up'. TyplcalTy ihis mcins go to ihc previi>ii^ que^tlun asked, but in cedaln 
modes it may have .i slight Ly difTcrcnicfrctL When a MutXTQ.M is running, Ui[> kills it and bocks up ujfhc 
last qui^ilon asfccd. 

'S: Ahmirmitriy ends whatever is being done, and reiums to Ihc 'Type of compllalion' question. IF* 
Mltucom is tunning, ii wjM be tilled. Whon a long ctimpilaimn plan ('How to run' is ^Many') is being 
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m-ide. ihc puriinns fllrcndy nuidc will be saved Sec lIic "RusIi many' cumpilatian lypc, 

7: When given as ihc flisi chjir.Tcicrof an unswcr. Ihi* causes .1 more dcWi led dcsciipIJon uFwtiJl is cipecicd 
iiT he primed, along villi ihc currcni defauli iind how lo ohiain II 

^: niii quoics whatever chariKicr follows ii. Inchiding DEL. CSC. cic. Ii doc^ not Ij.ivc ihc cneci of qmHing 
sirjngc ch-inicicrs in Tic n,iin«: sec the sccllim pn file name inpiii_ \, uicd hW a quale cbarnciei. never 
cchiics. and can nut he rubbed OUU 

In .iddiiUin. when ihc syntactic prgmpi Is J SVHJ. 'F if^uscAd (sec helow). 

5,2.1.1- Symbolic input 

ir^dH ;ire nimilmr wiili CALICO, [hi? «ciion e.m pr[*ably be *l;Jp|>ed- Wlicn ciilerlng syinboHi; Input 
one need cinly lypc Ihe ch.iracier^ ve«ulred hi uniciMely 'Specify ihc de:;lred choice: ihe Imerratc « III toinplcic 
ihe rcapimw:. Jiid iji .iddiiion cnn d^pl-iy Uic anil1.il>1e choices Jii jiny polnL 

SPACE eomplcicN ihe rcsp.insc as far jia Hcan. Ifihc icsp^mse 1^ iinltiiicly Hpccincd. Ii **m be displayed in 
ks endreiy. fblli'WL'd by M'; If mnrc ituiP ime choice is *yill pirtsible, d^en ihe poiikm .>F ihiftL' chijiccs which is 
.mmnhiftUDiisli speciHed -vill be di^iiTayCtT. rollowed by &: Kttr instiniec, iri-:^p.nid f.Mds" and -R-Lpflnd 
spliced are .nmi^nB [he chuice;^ and Kx SPACE" has been lypcd. Hupnnd &' will be di^^layed if ihe 'Hi- 
reduces die ch<.'ices 10 those two. 

tnsomec.Tse^ ifSPftCC Is ihe firii character typed, ii will scleci die defauU Ifirsi) choice -nnd n:miinau:. 
When TF Isiyped. all remaining ehuicet will bedi^layed. 

To icrminaie responses In diis mode, either ESC or CBLF may be used. In cither cose, the current 
rcftpunsc Js complcied -t-S tbr as ii can be. Ifonl^ one choice ;hen remains, ihe answer is tcrmlncned and the 
single c^iiilce will be used, ITmnre ihan nnc choice is possible, ii Isjuitafi if SPACE had been lyped. 

Typing ESCor CRtf bcforcany >uhcrchaiacicr5 have been entered c;iuscsUic default answcrlu be used. 

5,2-1 -Z^ File names 

File n^nes jrc expceied in ihe ii-indard dey.smi'Hrr-.f'itimc/ fiiii'iic2 farfnai un I VS: on '1 ciie*/10PS-3G, 
*imndard file njmc rccoEnliJon is used, ijpically. typing simply ESC or CHLF ansiAcrr; mi- ui Ihe quesdon, 
while SPACE ESC saya 'use Hw default'. In ccrLiin ^etial Cnises rinpiii file' jind -Ouipui rile"), when some 
answer m ^e question is imperative, the dcf^uU will be used In either case. Pile n-imes sluivild not be 
siirroundcd by quotes In thismiKlc; tlicy arc not Mul STRlNGsT 
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k is r^iher pjjjnful lo gel funny ch^racEcre fsuch as SPACE) inu> fiJc names. When ihc filcnainc parser 
soos^iTQ, liuscsihcrullowlnEchanicicrmihcnamcJjcinEst^npr^icdrcgurdrtrss. Uiifjaifnalcly, Ihc » Q must 
be q.njlcd Eo gel ii past ihc reader, jiincc ii has special effect In Uic normal cuse, MiifS, Uic file name given to 
MDi as TAAi fOO >' hJHio he tj-pcd iiiCoMnAT as TAA:\iO fOO >. 

5.2.1.3. Text 

Tcxl isjuitrhai: relaiiveiy arh\ir;iiy r^haracicrs. icrmimiicd by ESC. Since CRLF rsaUu*cd in ie»[. I; docs 
nolicmiinajc input. Tciif lypc "npui is u«d in a mimbcrtifcases whcrr k isn'i quUc appmpriaic. such ns the 
'Bcdo list" and "l^acfcLflBe mmic' qjcbiion.s. I Tit is knowii Uijii Uicnpccicd rMportSC ts a LIST tir SIRING, as 
in ih,wccflSM, Ihcnnpnipriiirehnicfcctsiirquoicsshuiird imibc lypcd. 

5.2.2. Combat Questiona 

niis SQ:[inn discusses Uie q.icsiions thai can be asked cif Uic user during Uic prcp.iration of a COmOa r plan 
nic, which is FLOADed by the CoMim r demon ur by PCOMP (t> cfFeci a ttiniplinUon. ITie percepiivc nrnder 
wm nuUcc n simng rescmbLmcc lu scciicm 5.1, Z, In which ihe switches relcviim lu die compiler ore listed. 
Oucwiuns asked by die pre existing compilation types (Verbose' and Short-J arc wi indicated. ATI questions 
;irc available in user-dennedcctmpirLtiinn lypes (see section 5.2.5), 

'SriLime': sc[s the derauli directory for questions Uim w.mi a Hie a.imc us an a/i^wcn afs^i ciiises ilie FOfiM 
<SNAMF 5'iiii"r>. %vhere ih(7»fi* is the answer given, lo be Included in ihc pUn, lliis acis ihe dcfiiuli 
dtreciory For fries rpfcrciiced by the ci?mpller: Ji disd causes ihe tdnipoiary f.lc (see below) lo go !« lUc 
siuiiite directory. 

-Use new cnrnpile^?' (Verbnse and Shun): spcciFles whedier the 'new' emnpHer or the 'old' compiler should 
be used, Ofien. wJien ihcrc is only one compiler. diJ? qircsiiun will not be asked. If answered 
amminiively. it causes ihc FOfiM 

<0R CGflSSIGNED? CXPEP THE NTAL I -> <WEWCOMP T -» 

lobe Included in the pl-rn. Tins FORM *j|f lo,id a new tompllcrun mp uFihc old if necessary. 

^iJcbiisglng coinpMeir (Verbose): cause* DEbug-COMPUC I - 10 be who T. which causes the new compiler 
10 Bcner.iK cxcra infonnaiJon about what it's diting, fhis currently is disked nnlj if tlie new-compiler 
question is answered nUinnJiilvcly. 

Inpui from- iVerhMsc and ShoriJ: [he HTe |o bccompiled, ITilsappeara in two places in the plan: as 
■ISETG COHBATJ- i>ipul-Ji{e> 

and in the cal] !•• FCOMP described below, 

'Output to' (Verbose): the file name to be used fiir the NB IW. "nic default is the input file name, whh NBTK as 
the second file name rnsiend of whatever It was for the JnpuL Jliis cumpleieg the Ctfll tu FCDMP Uiai ends 
cvcrj plan: 
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'W^\sca\\ in w^hji acimiUy invokes ihccumpiler. 

■|*tcc.impJhiLion rmrn- (Vcrboic): spcclflw (i nit? croniomina a previously compiled ^--^rsion of the inpui Xi^. 
Any FUNCTIONS which HhIvl' corrcspuntlmg RSUBHs in ihc prpcjuinpllninm. imd which nrc noi (in [he 
'Redo- hsu arc ntu recompiled. It is -ipprupn.itc ui specify ihc icmp^r-iry file 3S a prci:£impil-«ion if your 
pTc\iiivkf.compilaiioii was init^rmpicd byasysicm crash. Scis PRECOMPILED]-. 

Compn^t^ ^'"'i' tVcrb.rtc): "ITiis question Js asked only If ^ prccompMniu.u file It; specified, ff answered 
nmrn.a|ist:l> Iviscr lypcseiiher SPACE tSC "r :i Hie n;m^c^ Muix.CM {'^ scciirn S-M will be run i^iilwc/ 
[jf [he Inpuf file nome .md [he file n.unc provided here (die: dcfiiuli is js for prvcompilpnon). plus some 
e^[r:.^iidT specified helu*. Ifl 00 NHIN" is eIvph here, ihcn Muix-^jm wiU locili Tor Lhe ne*«. revision 
of FOO ^^hlch V.JS creaieJ before ihc N8IN, MUIXOM derennlnes *hii.li FUNCTION'; in die Hie have 
eh, kneed .,nd ihercforc need u. he rcL^iiiiplk-d. U ulvi tleiermiiies uhechcr ihc flic Js a PACKAGE, and 
uns-ei^ die l^-cV-fic itiihIc yo.sMon ,.pptO[.ii;iielj. Ii is iheTcfuro mil u^uliUs- necessary fur the user lo 
[tn'^vver ihe "Kedo" wild "J'jickjee iiiodc' tiueriiMin^ dlrccily. 

'Checli niacrx's''' (VerlhriC>: -Kfccd unl> IfCompare *iih is ai^swered ;imrmaiivcly, llus adds VH" u^ ihc>c/ 
parsed lu MLilXOM, Which CLUiKs i[ eo clK-ck for MACnOs iuid MANIFESTS *hleh huve clumBcd: .fa 
FUNCTION Liscs a MACRO or WAHlFfST which h-u changed, ihc FUNCTION '^dl be lifted :is ehflnficd. 
MuiKOM docs noi norm .illy check for [his, 

Vjtu-a JCI - <Verbas<^): asked i»nlv If-Comp-ire i^ith" is answered Jtrfirmiiiivelv. Wlinicvcr N supplied hen- will 
be passed loMUiJCiMasjt/. before the fdcs Li compare, Ihiscan be used to to,id mjcro files: see setcion 

84. 

-Hcdo" t Verbose V ,isked only if a precumpllniion Hie wnsgUen, T:ilics a bunch nf FUNCTION n.imea. vvhich 
*UI be recimpilcd. Note ilui ilic n^mes supplied here will he appended u> Hie Msi rciurned by MU[x:oH. 
ifuny.aiid thiii duplW-ilions In ilicUslare Ifinurcd- ScisREDOl -- 

-Pjckage mude- {Verbose): osVed if a precnmpJIatlon file -its ^vcn and Mui « OM wh-s not run (MurxroM v-m 
set [his if run). I^is should be dien,imcoru PACKAGE, v^hich is ;i«iJ,ned tube die PACKAGE bcina 
compiled, FUNCTION n.nnies m die Hed.r iisi will h^ looked up in ihc apprnpn-itc PACKAGE OSLISTsif 
thl& nH^isset, UicrebySiivlngsomeiypinBofuailecs, Seis PACKAGE -MODE 1 -. 

Tcmporiiry file to': ITic compiler wriies InienncdiaK results lo the lempnruty file, which Li nomrnUy 

" siHttiie -,^fii"'c I > " (on ITS) 

-<,siiamc> : Jiia^nf - TEMP" (on Tone«VlDPS-20) 

You may rfin^nec thjii by pniwerinE this quesijun; ihcre is rarely a ^^06 reason to do so. Scis 

TfHPNAMEl-^ 

Sounic nie lu": Hie compiler can be caused to wrEle out the osscmhler inpui Tl generates by nirtwerina tlite 
qtiesilon. Assembler output normally goes to 
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"•uiiirnf./ii/l/UC/ SOURCE" (on tTS) 

"<.Biai'iO ifiuime- SOURCE " Uiii 'lcncx/"IOI>S-:iO) 

whJcJi 15 ihc dcf:iu|| fiir ihls qucsiinn: jnoih'cr name m-iy be pmvidcd if dwJrcd, ScB SOUfiCf ! -. 

"Spcci.il?': 'I"he tciinpjK'niominllj ii&siimijs (ha| vpri,ib]c& *vhich Jicn't OFCLcO SPECIAL .ircn'l SPECIAL. If 
Uiis fl-ig LI T (di^rjulcs [(1 FALSER ^lU v:LrmblC£ will be assumed lo he SPECIAL un'css dccl.ircd nUicrwisc. 
SCLS SPECIAL!-. 

Rfcp.md flttfld^?': (VcrfciHc) tf mic. FLOADs in Uic Hie ticine t*mipjli:d wiii be cupjndcd ai liiad Umc Scis 
EJ<PFL0A0I-. 

Ijpiind iiilKcs?': rrinrc^tlijcetsurtypc SPLICE (PRIMTYPE LIST) will br expanded and inscrled inlD the 
erinip. Sci^ EXPSPL ICE I -. 

CarL-lul?'; tVcrbt^wJ Ky defiiuii T. bui if FALSE, the mmpjlcr *iM omk ini»si onhc biumdfi'chcclmB code k 
luirmjiliy Ecncrjies lot HTHs. PUTS, and sij on. Hils oti^imisij wiTI maki: pltc unnpiletl (jctd..' mn fnsicr; ii 
iibji m.^kcii debugging U;l' I'limi^iled e<>dc ne^irly impn^^blc. Scrs CAREFUL I -, 

"Kejs.miihic'?': Hy dcfjiili T, bui if FALSE. Uitaimpiler \vj|l generate rcn^iin^ible ei>de i>nl> if every rhjng you 
cjit rrom [he riiiLclionS bcina cumptlcd is iiKnicd inm the compiler. Scln REASONABLE ! -. 

■Glue?": 3I> Jcfauli T. bin if FALSE, ihccnmpilcr *\\\ mic gencMic GLUE biis. lliere \s mi eihiJ reason lo 
f H-r nijisvicr ihR SeLiGLUET-. 

'Macro compile?': Hy dcFauli FALSE, hui it iruc, ihe compiler wlH ciirnpilc HACRQs. ScJs 
MACHO-COMPILE t-- 

"Macto Hush?': Hy dcrauU FALSE, hiii IF imc. MACROs which jppcnr in ilii: file bcinfl compiled will not 
appear in ihe NBfh, ScliKACRO-FLUSHI -- 

-Mar. ^aci;7'i lly defaiiJt FALSE, hut ifimc. ibe cc^rnpilcr (Tushes Fr^m core mmi oFcacTi TfSUBft oner ii has 
been compiled; only the OECL Js needt^d u> help compjlc ulhcr ftincllons, "ITils Ciin. ri>r cumpilafions 
wlik:h are vci^ large. rcsulL in cim^iderable impnivement> in^pecd. Scti MAX -SPACE 1-. 

■Rrai dimgs it> do". "Iliings in dp' (Vcrbuac), end I.lisi Uilngs iik do : U frctiucntly is necessary m pcrfnrm 
S[»me .-iciiLina bcTorc a eompilaiion Ciin be rum dcdnitiens Tile.'i muM be TiMdcd, sjiecjji envlninmc^ni sciup 
niigbi hii^t lo be perfumed, nnd ^^ \.m. All ihrce of tbew quesuons Jire designed to Jihuw ili;n: whatever 
you supply is put uui afier e\crythinR clw in ihe pl^n hui hcfi'rc ibe c.ill ui FCOHP. Ibere .ire ihree 
qu(.-s[ion!i. inMe.id of one. Tii jiUow HimC ihirKS lo he sp(M:ified Jn j L:ii lured eompilacion Lype, while olhers 
are pAividcd a[ compile time, "r possibly fnim anuUicr Uiilurcd lype. 'Ilie ihrce queMrons do not depend 
on each oibcr: ihey iire asked In ihc order given here, nnd ihe answer:^ jppcur in the plan in the s^me 
order. 

5.2,3, Requesting CompilalitJns 

'ITie fixsi Queittion aakcd by CqmhaT Is Type oF compifaUim'. In cddition ic a number of special 
puss! bill lies described later, ihcre are two answers lu ihis question {in jddliion in any provided by the user 
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Ehmugli ttic [alkirliLg fjiclMiy) which ruquc^ pE-c-dcHncd uiUurcd cumpibiion lypcs. Ilicsc arc ^Vcrbusc^ and 
"Shon", 

■Verbose' causes HI ihc rxonnul qucslion^ lo be asked; "New compilcrT. TnpuJ. file'. 'PiccampilJlion'. 
^viiehc^ Things La do', and &o on. 'Shun\ en [he other hand. dcTsults Uic answers lu a\l qucsLioiu cxccpi 
"New compiler?'. 'Input flic", and 'How to run". 

When rnLucscing i\ coinpllaiLnn, nne mny type tQ ai nny ilme. 'ITiip hiL^i [he time Immediaic cITcet as itn 
ESC. but in addiiusn caus«^ll quesiions bc[wccEi [he une Just aniwcrcd und the "niings m d<f^ question to toe 
dcthiiltcd. 'lliis IS pikrtlcularly useful m [he 'Verbose' sequence of qucsEions. 

IF'M;my' WiisfiKen ;« "Ho* [" nm' f"r .1 pre^luos c»nipiTiiuon reqiicsr. nnci (he fMiiliIng pLm h,nanot yet 
heep written out. !4ibscqticnl plans will be Appended \v Lu *_l5ine 'M-m/ will siimeliirtcs cfTtxi a major 
saving i>r Hme irwvcral a>inp(l3lioni wisti 10 perform the unie envlruMmciiml seiup: if they [I5( mnny of 
■he same PACKAGE*, fyr c^amplo- When usIn^'Many' in combiiiaiiun ^Uh predefined cnrnpiLuLmi types, it 
is uncfvl Vi remember ihiii whali^vcr Is specified under "ITilngs ui do' rrn^y end up bcfne pcrrDmied Cur each 
plan. Voo inlghi mudlTy yuur rnn'^ptlaTlon types Co reflect Lh^ or jillern.ilively, edit the pinn llTe produced by 
CouiiA 1 Ui ri^move redund^mt (]per;ii[lona. 

The oiriyviay IP get rrdofthc 'Many' pTiiix is to answer "Mjny llush' ui the Type" questiurir Typing »S or 
;inswcring 'Abort' ttf the 'How m ma' question will aburt the current portion nflht "Many' compilation, but 
ni]( ibe wbclc ihing. 

If 'Many' was nitslakenly given as 'Haw to run', and yau doa'l wish to destroy the plan you have 
generated, it Is possible [o (in cssenccj go bock to tlie 'How to run^ queslion by answering 'Many print' for Eh<; 
conpifnlion type. In this case, you arc 'rn/boclc in the plan^ma^Eing Eoop; tR aclsjust like tS. 

tR. here, backs up to the lost question .isked. 'Inhere arc two qualificatiDns. Kirai, IT tg has been typed, 
ihen It bricks tip to the lost queslinn thai wuuld have been asked if tg had not been [yped. Second, [he four 
qiicslicjns 'Prccompilation', 'Compare', 'Ucdo', and 'Package mode' are treated as a group: if the 'Package 
mude' quesliL^n has not yet been answered, i[ is possible to back up norm.illy; but once thiit question has been 
answerexl, backing up to it will go to the ilrst member of the group, 'PnXiHnpLLaiioQ'. 

tG allows one lu obtain the answer to the current question from any user'di^fincd mmpiLafron lype. it 
requests a type name, and uses [he answer or defauli supplied therein, printing ihe inrorm^iliun f^ obiakned- 
'ITic tG mtisibc typed as the hrsl charjictcr of :he answer for this to occur. 11iis allows one cause parts of a 
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dcHncd i^pc wlchuui cichcr iiiiing ihc lypc liscif or rilicring it furUic occusiun. For 'Tcm' lypc input (sich as 
"'IliingsU^du'). the siring i^ plniccd in Lhc input bulTcr but noi cumplCLcds so it may bt: edited bcrorcnn ESC is 
lypixl. Sec a^so the "Xpriix lypp" ci>mmdnd. 

Nutc [hat there k a distinction made bclwc^cn 'Compare" and "Rcd(i': tltc formtr cau^u a Mcjiic-OM lo be 
run. and <hr^ biifr a^k^ forrhc nam« ufFUNCT tONs lu be cpcornpilcd. It iEpo^sH^fc ludobuih, Jn i^hichcnsc 
Uic twoeniups urFUHCT TONS ntc appended lo form the "Redo' Hst Tor Uic tumpiljElon. Note atso Uiai If a 
MUTK/OM has been run, die "Packjigc mode' quntiiin win mil be '-LShcd, since ihc answer is supplied by The 
MurXXJM. I'JilicrTH i>r TS may be used Eo ktH u running MXJDCOM- 

Oiic uf the r«pDn-^<« Ui Uic *i luw m ntn' question is "Abort', uhich relume direcUy lu Ihc "Type of 
etimpil.icion' que«li»n ihiUtuUL writing out u pl^n, ai.ining up a PCOhtP, or ^m^ thing e\^. lis cFfbci 3^ cn.iCEly 
dial nf :i ts. In pjircicubr. if you nre making a long plan, on1> ihe portion ju;*: eumpleicd. inn the cnllre 
cnmpilaTi^in, will be abortecL 

Ii is alH^ possible m the "How to run" qutMEian to supply an answer lo aay of the L:o[npLJa[ion qucstiona 
(InpiTi nie. cic). 'Ilic "Question' response Jisks for Uic njme of a question. Uien iishs ihui quescion. Any 
number uf questions c^in he -n^ked in this manner, one at a time '\^'\^i Is pjincul^iH^ useful fur EllliuB in the 
bijinks ieft by u "Shun" Eypeeompikiiion. or by nEcr^defmetl compilation types. 

When Ji euuipilotinn request has been Hnished^ COMHAl" nurmiiMy loops bncfc to ihc Type of compHaiion' 
qut^Stion. bin chdingcs [fie dcfFiiLlE from "Vi?rbosc' to 'None' frne^iiong "O'liE"^ trnless anuEhercumpiJaTion may 
reasomibiy be npccied. Thus, one may leave hy ^ypjiig a sirrglc ESC. 

It Is pitssibic m modify Cdmiiai^s beliavioT such (hat it crdipr kills TKcIf aflcr linishmg Ihc CDHipllAtinn 
plan, nr loops back ^iih 'Veihi»sc" *ts Ehe defiiuh for the Type ofci>mpii;i [ion" question. 

COMhiAJ rirsidceidcs whether a long com piTaiiim plan <s being made: if so, the default remains Wcrbcsc/ 
Ir not, iE Ehen enamines the current cumpilnLiun type: if 'Anoihcr compilation?' hiU been wi to '¥cs", the 
question will be asked with ilc^faiih 'Verbose': if it has been set to "No". Comma i will kill iL-^elf: If to 'Ask', 
further cunstde ration Ls required. 

If the user is In 'Multiple' mode fthc ^Muhiplc' compilntlon lype>. the type fif eumpilailun will be asked 
wJih the Verbose" dcfaulL Otherwise. COM"^ V ei^iMnincs Ehe sEate of two L-i1lor;ibte swiEclies, set by the 
'Another compilation?' cotnpikitLon type. If 'Another compiljilun?' ha*;bce[i ^i ii» 'No". Com it A"! will die; if 
^' 'Vts'. the type question will be aaked with defautt ■Vcrbi>sc': if to "Ask". Ehe lipc question will bo oskcd 
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wlih dcf.iuli^Nnne'. Normally ihis q 'Aift'. 

N«[e [haf "/VriDihcr cumplhuion?' Is like ' rogglc vcrbi.>si[>' in ili;iL ii will ha^c no cfTcci [in Tcss user- defined 
cimipll^iElon types CKOt. 

5.2.4- 'How to Run' Options 

"llicrc arc fnur up lions avu Hah Ic »hcn answering ihc'How Lo Run' Qucsiitm which dcicrminc whprc your 
plan nic will be written and when ihccimipilnlinn iispeclOcs will be run. 

■Pcomp' places the pi:-" nic iln the <SNAHE> dlrirclory. jnj namc^i \l -PCOHP >-. AdJilton.iTly, COMFIAT 
willsCiin J PCOHP (iirNPCOHP. .i^:ippntpriiitc> pniccs? IFIi Iscitned .iltej wniiiiB.i PCOHP file, 'Pcomp' is 
Ehi: sijndfird incdutd Tor jiiiining ;■ cuinpilacion in onc'^ own pri>ccss. 

XOMii-M" *riie< Tlie phm flic w "COMB A I : PLAN >". Mic COMIWI demon successively compiles all sueh 
pUinr^dl niBlU- inforniing the pctsons *h(i -iuhmlited ihem nf ihe rcsulL 

^Uaste' is like 'COMHAl'. citepl ihni ihc pLm is wrillcn lo ""COHBflT ; WASTE >"- "l"he 'w,>kIc" qsicne l*ionly 
rtin Jillcr nildniglii. which Js usuiiliy ^ufllcicni Tnr [lu-^e wlm nic tli""^ "o\eriiiEhi' compi I aliens- "Wasts" 
l5 Uic answer Used by dc^iull lur 'Mow in Run'. 

■File' places Uic plan file on iJie <SHAHE> direciory, nrd nuirica it "PL AH >~. 'lliiH meiius thai k will not 
he run until you cxplkciily load it iniD u compiler process- 

5.2.5. User TdTloring 

k is often ihcefiv Ihni 3 parHculnr nie is compiled quiie uRen, or Oint some sequence oriLciiuns must be 
perfonncd as [he "niing!; 10 Uu' bcrorc many coiopihiiions. CDMIIAI 4»^To«-s the user to dellnc his own 
'Compil;iiion types', eacti oT which specifics cxoeUy thotf questions which should be asked and [he answers 
Tor ihuse which should not, tror example, otic could have a lypc mimed "Ksign". which says thai ihc input TiJe 
is alwiiys "SENDiESIGN >" and In addidon provides for the FLOAOing of two files in 'lliings lo do'. 
Further, siitec most questions htc dcfiiulced, one miBhi choose (u answer only ihiwe questions whieh uic 
tnicresilng. such as 'PrecornpiiuiJoTi". It Is-ilso possible lo supply a dcfaiili answer for ^i q^chdon which will be 
asked. 

In addition, there arc sonfC qiiesEinn-'i *«hlch are ntit asked by ihc "Verbose' compllaliuit type, bi« whk:h 
ncvcriheless arc Jiv^iilnblc to user-dcrincd types. ITiesc iire: 'M;»cro compile', "Macro tliish'. 'Man ipact', 
T-Apand aplkcs\ 'Special mode'. GFuc'. and oihcn 

One can select any oF one's own defined compilation types as an answer to the Type of compilation" 
quesiionjust MItc 'Verbose' ^nd 'Short'. Huccpt ih:ii Ehc qucsUons asked may differ, uscr-ttcfincd types arc 
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idcniJcal lu ihc preilcfihcd typca. 

5.2.5.1 . Taitor fires 

Uwr-d<?rLncd [>pcs arc sjved <aTiiJ leaded) from ihc file 'r^^ourr: ^tCOHBT TfllLDR". Ii fs ptisalblc tn k»ad 
iHhcr LiiU>r (!:«, bul OtQ ""IBCOMaT- flic in simnie is lo^idt^d during suimip. Tailor Files arc quite similar lo 
Mi?i.GC-DUMPcd lies and Ihut cannot be edilcU iiLhcr ihjh wiihCoMHAT. 

5.2.5.2. Create type 

niiis spcciiil CLimpilqiLim Eype requms n name Tur the type being mnilc, then cnKri a loop with the prompt 
'QucsUon'. One may thoose any of the <ivail,ihlc iiiiesiions. and eiiFier scippTy an answer or (by dcfauli) 
retiue&i thai Uie quc^ii^iEi be iisJced when a tompibnun uTthis ijpc Ls hcmg siihniiCEcd. NoEo thai only the 
"How In run" and ihc rolkming 'Type uf compilmion?' qimtions win he Risked unless oihcis are explicitly 
supplied: but one m«iy tuppLy answers to 'If aw m run^ when creating a lypc. 

In IhLi^miTde, »P will return w UlC 'Question' Loop ironi' is atwHH {o supply an antiwer: tsChcrwiEC. ii returns 
[t> the "rypc ureiiinpilatiun' luop. abi'Umg ilie lypc creation. 

tG behaves exactTy as ]t diics in ihc nonriJtT kx>p. Tci Indkiiic [h,i[ one is fliiLshed. une ^huuld answer "Finis" 
111 ihe 'Question' pnimpi. [[ is possible lo supply several difTerent wemons of ihe answer ri> a parucuUr 
quesimn; ihclast one given will be used. One may wiali [udeHiulLif particular question. -ifier specifying ihai 
It was la be iiskcd or nflcr supplying siirticdiH^fcntdefaulL 1"bi5 may be done by ariswerins "nelcie question" 
(o the "Qucsilon" prompt, whereupon one wHI be asked for u pariii:uldr Question lo ignotc. 'Ilils question will 
then he cumpleiely ignored. Note dial ail JntercriiiTis questions are Iniilnlly In this state 

There is also a 'Set question dcTBulr "QucsHon". This rcquc&is a question name. LheTi asks the user to 
supply an answer, '("heqiieslion will be asked, with the delhulL Supplied. 'Iliusder^uli sellings of switches can 
be changed, and one Ciin supply a f\ls njime for the prccompilaiion while still being aakcd whctJier 
prccompilaiian is desired. UnforiEmaiely. u^^er- supplied defaults for "TcjiT'-Tvpc questions are used if ESC is 
-miiwered: [u gci rid of tile defaulu type SPACE ESC. Note that this k exactly the Invera: of the convention 
fur def^ulUng HTc names. 

When 'Mnis' has been typed, a new copy of one's lailor tiTc is written out. This may, in combination with 
■| jiad mllor'and 'Replace bailor', ha\c undesirable side effats. 
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5.2.5.3. Print type 

'Iliis ivquc^ls the nainc of ant! ofUic lypcs currently 1o:idcd, ^nd prints out for 11 all qiic&liuns which either 
will ^c kLskc^d when ii compiljiiiLiTi is being suhiniiicd ar which have uscr-wippMpd defaulLs. If ji parikuldr 
qucsiLiin hus been ghibally ^lurrcd rtlT (sueh an ihc 'New ccmpiler?' Quesiiun. when ihcrc is no new cnmplltrK 
an Asterisk wllT he printed on llie Jipprupriiitc hnc tn Indicate (hiit the liirunn:itmn there Ls currently nol uscd^ 

5.2.5.4. Delete type 

'ili\s requests Lhe name uT one oTihe ciirrcnUy-luaded lypct :iii(l deletes IL A new cupy uruie lulTur file is 
w ri lien out. SD nil Lroccoflhc type will vmiish when LhiscninriiiindlsuKiL 

5.2.5.5. Alter type 

■|"hF^ rcqiiKis n lype luimt. ^on bccuincii Idcndcnl m 'Creole type', ejicepi ihni ruime qiic^lidiis already 
ha^c ^n»wcrs. ^galn. 'Mnis^ mEisL be typed fi leave the loop .nnd cause tJie modifier Irons ii> be Tileili typing 
tn "f iS v.'t\l leave Uic liKip, bm the tnndiflcii ions will bcfjiEoHtnr 

5.2.5.6. Load tailor, Replace tailor 

lUiih or those request ji iTle njme, deHiuliLLig to ilie hisiune iisctJ For citliera 'I j'iiiJ tnllor' or "Replace tailor' 
cuinmnnd. Inltlully liib. \s "s'l/iiiir-.'X-COHRJ TAILQfT". 'I I'dd tailor' Appends the type^ dePined in Ihc 
spcciricd file [o tJiuse already liuided. svhtle 'HepFace tAllor' Hn^ throws uwny Uiose uTready [c>aded, 'l>ie types 
defined In thl^ ^vay are nut dhitiiiEulshed from Uiitse loaded frein one'i avn CoMhAl' tiiilitr Hie: In particular. 
tiSinB Tufiglc verbosity' or any of 'Create'. 'Alter', and 'iJelete type' will cau^e ;dl the types currently loaded to 
be written out to the CoMriAr tulLor Jllc. [f. tliererore. one has done ^i 'Repljicc lailk^r'. one can easily lose all 
□r one's own types in this manner. I,e., it is very easy la duslroy youraelf. 

6.2.5.7. Xerox tailof 

llils requests [he name of an existing [[ser^dePned type, and a new type name. The new type becomes on 
exact copy of the prcvruusly 'enisling type. Ilus is pamcularly useful wben one has »vcr;il di^Terenl Lypes 
which do almost Oie san^e thing. 

5.3. The Compiler (Internals) 

'Hie eumpllcr's jub is to lake a Mm FUNCTION or gruup uF FUNCT TONS .ind prutJuce an {iperaUunjilly 
equl\alen[ mJichinc-Kinguage subrouiinij fRSUBR) using whatever mforinatiun can be extracted from the 
Kiurce code and whatever additional infomiaiiE^ci the user wishes to supply. 'Hie crTicieiicy itfLhc iriiipiil code 
prodi.iccd is dirccdy priiporEional to Uie j^mouni of infiirmjUon supplied by the programmer and inversely 
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prciporLianal to Ihc gi^n^raUly uf Ihcsmiruc program. 

("he Inffinnaium supplied by ihc programmer Is usually In [he form Eiroplhm^il daia-typc; dcctjiraiions 
(DtCLs) nnd ihc use (if pujfirammcr-dcfincd djM lyptri {NEWTVPts} ilijii hnvi? bcuk-in dcclafHiUsms. Unlike 
miiny prugrammlng |:ingUAec^s. hnwcvcr. dcc1:tra[ic>ns urc never required. Tlic compiler will cumpilc 
pmgram.s wrih no dcclnrotion^ al JtIL bui ihc rcsulUng ouipLd ^iU noi run as rust as with wcl l-dccl.n red code , 

[lie curreni i:umpllL^r can achieve 5pecd-up Ciclnrs of anywhere rnim abouc 4 lo 100. The factor of 4 
repre^LiES Uie ';pped-up Torn vcr>' ecncr,i] pixtgraiti wiih very pni^r dccT;ira[ii>n±. On the tiihcr h;md. [lie fjctur 
or 100 represent o pn^eWini wirb vcty nanuw mnge arnppMciition Ehac has very good (thm is, restrictive) 
dcL^lariiiiLms- Typicjl programs cun expect 10 jichic^c fnciort oT 20-40. 

5.3.1. How » Works 

Hie C[>[npjli?r as 11 cuiri-'ncly enisls J*: rciilly iwd disl'nci progr.ims. CETOIIDETt k b;isiLjiUy iiti imcrfacc 
beLwecn lilesurMt}! roncilEiis.'^ jnil die cumpncr- U Is '■ rtljiiLvf^Fy ^ni.dl pnignnm ihii[ re.idA in ihe fiLe. f^cis up 
the varluu5compiierswliches.ca1T» Ihc compiler une or more lime^^nd wriiCMOUi die finjl file orRSUBRs- 

COHPluE iiscirLs bLisiefllly n ctimpElcr wiih three major on J three minor passes, l^iss 1 biLrTdsa model of 
die prckgr^m^ pass 2 .ina1y/e?> CiLch nodi: LkFthe tree find does data type analysis, pass 2. S (minor) allocaicb iiACk 
sp£ice riir vurliiblK anii icmputaries^ pas5 i generates output eode and two minor posses do Hnid stock 
allocation iind peep^hiilc opdmi/^itian, 

5.3.1.1 . COMPILE and COMPrUE-GROUP 

'[liere are two di^Einet jiiudcs ikrcompiLaElcin a^alTnhle. 'Eliey are ^niple JintI muUlple. Simple conipilailon 
oceura when COMPILE is called with one FUNCTION, I| sImpTy eumplles that FUNCTION and return;. 
Multiple compilation occur? When COMPILE Is called with a list orpJNCTlONs. U compiles ench FUNCTION 
Into a twparaic flSUBn. It dJfTers frum mulUpTe cnUs lu COMPILE in thm it si>meiimca partinlly compiles a 
FUNCTION out oF order lo dclerminc riscilhng sequence and do arBumcni type -checli ins- 'I'his behavior is 
nccessiry when eompiling muiuiiiiy recursive FUNCIIDHs. 

In oil modes of cdmpilalion, COMPJLE-FUNCT ION is called lo actually compile Ehc Individual 
FUNCT lONs. 1 1 calls Ihc various compiler pases. 
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5.3.2. Modeling Pa&s 

'ITic fir^l pas of ihc ctimpUpr Dkcs ihc Inpul FUWCTTOW and builds un i:ip,-indctT mudt?! of iL In the 
process uT ddine ihJs, ii produces a syn^hol labTc cniiy for every UkjI viirlab:^ Ihmnd and/or declared in the 
FUNCT ION. uny nfiLs PROGs/HEPEATs iir HAPF/HAPR FUNCTtONs. T[ .ilso pmdiicc^ Uil' RSUBR DECL fOf 
Uic final oulpiil. I'ua 1 also iricslo dntdc I Fan inEcmnI CnUV (Oi^il i^ ancniry which can bcc.illcd cfHcJcndy 
(sec scctkin 6J)> can be used *i[h this f UNCTION. If an jnicrnal eniry iiims oui lc be poiisiblc. I*i»st I 
gcncmics dn appri^pi'iitic CJlling vqucncc fur Inicmal calls lo use. 

'Ilie model biiik b> Pass I loufcs I IV c ihc orlginpl FUNCTION i^iih ,lII of ihc nudes In ihe FUNCTIONS 
slnjeuirc rcpkuzed *idi objccls nf type NODE (j new upc defined for the compilcrh A node in Ihe model may 
hjive jnywberc from S to 30 cIcmcnES. The S cleincni node Is for simple guoccU objecis lite flxcd^polnt 
nlllT^be^>^ ATOWs cic. I be iO clcrncni n<idi:s arc Uif mpjor elements of the pnt£r:im such as Ihe node for the 
FUNCTION itielf and nodca for PROGs 4ind RE PEAT 5 iTie majoriiy of ihc inidcs aic scnerjl SUSP nodta. 
whieh lijve 10 ctcmcnis. 

' The i';iH I Hiruciure Is hulli in ibe rolhtwlng way. The top level proKmrn In Pais 1 generaici a node foT ihe 

' entire FUNCTION, Tl^ls node geis the folhiwlng InformjiilDn put into il 



]. A ciHJe specifying EbaE Ibis Is a FUNCTION node. 

2r Ibe diiia type ibai [his FUNCTION Is decla[E:d to Tecum (ijr ANT). 

3. A LIST Uiai will eventually en nT^iin the niKles comprising the body of the FUNCriON. 

4. A UVECTORofinicmdl numcs for Jnicmdl o-iUs li> Uii^ rUNCTIOM. 

5. A symbol lablc fortlic variables declared and/or bound in Uiis FUNCTION. 

6. A list of entries In t!ie symhul table specifying how ihc argumcnis arc to be sec up Iv^liciher they 
arcoplEonal.QUOTEd^TUPLt etc.). 

7/l"hennjJ RSUBR DECLS. 

S. A ^KCiflc^iiidn of hiiw lo pass arguments fu this FUNCTION whea \i is complied (wbedicr the 
afEumenis sliould be In reglsien; or on thcstack). 

9r "iTie number of required arguments and the total number oFpisslblc arggmcnis. 

In addltltin id Ihc atwve infonnatlon. slnta eiist In the node for additional infomiiiLian lo be supplied by 
later com pi lev pa^ra. 
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A Her Lhi; mitin nude tor the FUNCT ION Is built, the sub-nifdf^ Tor Ihc FORMs cuinpri^ing the hndy uf ihc 
FUNCT ION arc biiili. I1ilf« hi d<in[^ by Tirsi dkp.iEcliIng m special Pas-S I ciidc^ Tttt Uic fli^ clement uf the FORM. 
triiospoci:il code exists Tor [his flr^i clcmcni. a dlsp;iLCh is miidc nn thciYPt tifihc llrsi cl&nciu urthr FORM 
llh;it i*. ATOM. FIX. FUNCTION i:ic.>. If na special code enLlsLs For cilhcr ihe First ckincm or (IS TYPE, a 
gencnil FORM node irr biiill- [■! [he cast afan ATOM as ihc (1r^ element iifEhiz FORM, the normal luiikup rules 
iirc invoked on ihc ATOM ,nnd U is dlapiiichcd -iShIMI bit^d on its laluc. ATQMs with no vali]C5i ciihcr cau» 
Luinipilaiion w.imingsoran: as^jmcd Lobe RSUB Rs (depending nn cmnpilcr ^wJLCh REASONABLE), 

Ml rSUBRs rCONO. AMD. OR. FUNCT ION. PROG. Frf Pf AT, UNWIND, clc.) Iiavt; special Pass I cudc and 
prodiiee very ipccific nudcn. Mosi SUB R^ Jon 'I du>p:Lieli lo specific cudc diiriiTg ihLsp<i». I"hc cxccpUnns arc 
■hkngs Hkc MAPF. LLlST. GET cxc.. which hjivc 'aimcwhm non-sliindtir*] tre:itmeni of iheir jLTBunients. 
{ AcLiinkliy, HaPF nnd HAPR dDn'i ireai dielr argumcnt-S nttn- suniU^Lrdly. but Uiey urc ireaied specialty in Pass 1 
sif ihaL Ihc inner FUNCT ION may he opeci competed,) 

As mentioned pievioitsly, nil nodes have ^i IcasL 5 elements. 'Ihese arcos foUows: 
t. A node type eode. 

2. A pointer w the pnrcnc nddc (ifonc eiiais). 

3. A spcclfkjUnn or Ihc dala lype the niidt wLU general^. 

4. A Uttiirsub-iUHJcs referred to as *ft/t 

5. A name Tot [lie niHle. whiirh may have dilTerent mejnlngs fur dilTcrent n4>dcs. 

Tn addition, nodes other thnn nndcs fnrQUOTEd objects have additional elements thdt arc flJIcd in during 
later par^5€:s of the compiler. 

After Pflss I all nddllkiniil passes worli t>n the mudel built during Pass 1. The original FUNCTION is no 
lonfter even considered. 

5.3.3. Analysis Pass 

Puruig IVas 1, very little infoim^itiitn Is determined rirgardrng the rciiiikirg data types of various nodes. 
Indeed, with Uie cxccplLun of nudc^ prnduccd by quoted ubJei-Ts, ^iruttured ubjccts which will pnHluce code 
lu build copicB of thomsclvcs. and FUNCTIONS, PROG:; and REPEATS with decliircd values, no lypc 
inrnntiairi>n Is pruducedr b'ven in the c&acs ^-here type infunnaiiEPn is produced during Pass 1, it is usually not 
as detailed js other passes woutd like. 'Jlie Analysts Poj^ hnS Lht \iiti vf refining the result type oT each 
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individiinl mxlc bawd on varlQuacriiPiia 

1. M,. dc...r.d .ypcof .he varmb.cs.uscd in .... pWum mclud^.BGOECU.nd MANTfEST.. 

2. ...c ...wn typ. ;r.u.r,>n...on. p.nl.c.. by ..nuus SUBfi. d'or c.-.mp.. ^t ^ »=no*n that 
LENGTH j1 ways pf^^liiccs^i FIX result) 

.. .... ....... -r .h^ c.n.„, of ^. n^=. »H.>n U.. proa,.,.. ,K.r ...-.n.pl. In *. T.U.w.n, 

"^' <CO«D (<A»D <TVpe7 .X 1-IST> <NDT <E«PT»T . «>» 

i..flcmply*h<^nihc<l .JoismnJ 
-.1,. .n.„.N P.^ P=rr„^- . .....r. ..P.vr„s, ,..-....Ks->. ..« ..,. on ,.. P.S, 1 nK,d.,. .l.c ^n 

Z. Sin.. .,«, n.^« .= ..11 .-.dc. .S.B« „„d«-. n,™, >. ,«. .i.p.uh^ .n up « "^ ^"«- 
...K,., M. SUBR ... .n.1,,.r ,™ ,w. .yP- .T r.,m.. dl,p.„.h .v.i,.b,=. h..« U ,.-.. - « -^1= f- 

s..« . invoked, mK>. su.« K in..p..>= .f-m cp.n..dca. AN. .n.M .n>.u.. u...= ., -^ " -^« 
.„ .„ „„.,.„> .n., .v.l.,.,.. >n. d«.. ,hc .ode „ ch.-,n«.d m..., . S«B« nod. .o =n ,.,.,n., SUBR nod. .^ 
.1 d.pa.-» r.,. .no,.c. .b,c ...«.=d .o ^ >f «. o.ic. .PC ..u.,od .. d.. SU.« . .no«n, .nd if. 
is (he rcsuli i* put imo iht SUBR node. 

M«. af d,c wo,, done by d,= An.,y,i. P.« h.pp.n> w.'=n U,= nr« d,^... o«- -<» ^P^cj.. SU^« 

. J..nu, .o ....r„™ ..c„ nod« ,n .n „p.n.^= .p-.-ir.„Uon. Po. ..^p,.. .n ,.voc. ,on nf ... .U - 
«TsTon>v....sro^-o=.op......nod..r.o..= P«.MTVPEor..n.,,,.o™n,..nn.^^^^^^^^^^^^^^ 

... .d *.. ..= n„ S.a«.NT= . U,. .„ .n XEST. . . «^.. SU«« —'-**;;;-:' 
„pcn.cn,py= in 0,1. »«. . cL.hcr ,=.v« m. n,«.. .< a SUS. n.d. ,. t™..ron„. . u, .. in.n.., SU« .=d.. 

'ISA The Type Analysis Model 

■ ,:.-,dd»U,n ,o *c mndc. of U,c .t,«CT .ON nni„ .. P.S. >. U. A..>.. P.s. ..d. .dd.io.., in.o,^..<.n „ 

„ .«p ,,«. nf U,. =u,..nt CIECL of ^h v.r,..^, Sp«,n.„,„, d,«c i, . .„« m =..h .ymb,,! ^nh,. cn^ 
::rcr«.H--T,P..n,o.....pd...H..o.....oni.c....n,..d.,.c.|»SETC..^ 

d,= CURKEHT^TVP. s.. .o ^ c^^.gcd .o O,. .nn,.,^ .vpc of SET". s«ond .,g.,n.n,. W,.n n,u.,plc 
ThcCompilcrtlntcnials) " 
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conirol paihi meet, ihc CURREHl-TYPE slols nf a variable arc OBd uigclhcrat thcjoimns poinL 

Conditional ciimro I sinjciu re nodes furCOND. AMD and OH iilsti m.iininin iwiilists ofiroosiicnt infiirmaiion. 
ITiMC arc called TRUTH and UNTRUTH. 'Ilicy specify whai Infonnation wU! be valid ir ihc inic or false 
branches flrc i^Vcn rcspcciwcly. For Insiiincc. a COHD clause cismpilaiion can assume ihai any TRUTH 
inrormaiion BcneraiPd Ln ihc predicate of ihc COHD will be valid Tor [he ml of the clause. 

Scimoorihpanaly/rrs for the more widely used predicates have special code in Uieni lo add InrormnLion uj 
(hccurrenl TRUTH and UNTRUTH values, " I Ticse predicates include TVPF7, EHPTYT, LENGTH? and NOT, 

Tflitp^ni conirol siruclurcs pnse iiddiUonuL problems for [he type analysis m»de]. The approach Lalcn by 
Uic type jnjly/er Is lo build a ciipy "f [he currenc types iif all viiriubles hcRire ,mnly/ing Ihc luop siructurc. 
niis.eopyorihc lineal [ypc informaUiin consilLuics ihc assuni:»liins currently in cfTctt Ancrihclotip analyiilfi 
Iscumpele. the ^Bsumptions are checked agaln^ ihc current state of ihe vaiiAblcs- Ifuny of ihc ns^umpunns 
have been violaleiL theassumpliims arc updaled and the Uwp I*; rc-analyzcd. 

5.3.5. Ufe-and-Death Analysis 

ITic Analysis Pnss nlso perfonns a lifc-anddealh iinalysis on ihc 1ucnl viirlablcs. "ITiis is dime by jfisi-mina 
tb at the variable's vaKic Is dead ai each LVAL node for thai v.iriflbic. If iiniiiher LVAL node for this variable is 
discovered thai is reachable from this one before any iniervcnins SET nudes for this variable, the orieinal 
node iaupdiileil [o be alive. 'ITiis life-and -death Informaiion is used during Uic Code Generation Pass, 

5.3.Q. The Variable Allocation Pass 

The Variable Allocation PasslVAP) s a rela lively simple one. Its purpose is to allocate stack space Ibc aH 
of Ihc variables bound in Uic FUNCTION, its PROGs and HEPEATs and ic^ MAPF/MAPR FUNCTIONS, There 
Bic various swiichesihatcontnjl ihe manner in which this allocaiioji ispcrrormcd. 

I'he mosi important swilch specifics wheiher or not Ihjs FUNCTION needs a FRAME or noi. The VAP 
always fiiflfic out assuming ii docs nol need ui build j FRAME, 'Ibis assumpium wtH be changed if il is 
discovered ihai externally accessible n;imcd ACT IVAT lOhs cuisi in ihe FUNCTION or any ofiis inner blocks 
(PROGs Ejr REPEATS nr FUNCTIOhsJ or if at jmy time il is discovered ihai the address of a variable cannot be 
spccined as a fixed olTsei fnmi ihe top of the stack. Whenever this assumpiiun is changed, ihc VAP siarts 
over again wiihUie i\c^ assumption in alltect. 

Another Bwlich thai controls the behavior of ihc VAP apccifics whether or nol the sJock slots for inner 

» ■ 
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bloL-ks wlH be pn^HiMiican=d iMrcause ihc sixk wUl be in a 'Puy^y" iiaic wlicn iliMe blocls arc mnnlnt The 

5Urt:k Issjiduibc in a 'ru?^'/ luoic when (he number of slois currently bci]iB used cannui be aetcrmined ai 

compile lime. "I'hiG usually uccur^ when a TUPLE is being cmsu^ucicd for a KAPF. Tor instance, in 

<DEF1NE F (X Z) 

<MflPF hVECTOB <FUNCT10H (V) <--? .1 ,7>> ,X» 

[ho elements uf [lie VECTOR *m be beiwcen ihe lup orUiesiacli and ilie loc;u1nn of variable Z. Fvcn iPF has 
J FRAME. iheUtCJilUmufY still not he known reLitivc to ihc FBAKE pointer nicompile lime. IlierefoTe. ihe 
initlali/Jiiion code for F viW prc-alUicaie ihe *>iKk space For Y. 

Durine the VAP. e^-ch symb^il tabic entry aei-. il^ sddres'i field -ici hawd oti «heie thai varhihlt wiTl be on 
Ih^: Black. Alsn nodes for PtlOGi, REP£ATs.ind HAPF/MAPfl FUNCT ION5 iH.U l^.ive hoiind vari,iMcs get 
iHldiiionnI liirMnn.iUim iuscripd m ihcrn^clves. ^^liTl inforniiUion includes inhere Uii.' SPECIAL lariablcsslan 
and where ihc UHSPEClAL variablesstart. 

5.3.7. The Code Generation Pass 

The Code Genen.U.in l^ias (CGPJ is pn.bably Hie mmi compMcaied oF n\\ the passes. |-ortunaicly, the 
Annlysiii Pass has .nhe:idy rcHned ihe model sii ihjit the CGI* can dispaich immcdiaiely Ui the spccinlpurpow 
code fienemiois. Besid^^ bulldlne ^ "=^" oFoSPembly-IanBu^ief insirueiiuns as auiput. ihc CGI' tecps irack of 
Uie current sute of the iim^. the comems of the regi-iLcre. die current suite nf ^arijblM (whcihcr Uiey arc in 
rtsiaicra or on [he Black ur bnUi) and the conicnii of the temporaries, 

Hie fisnenil dLspfllch routine durinfi die CGP is called GEH- U takes two arEumcnts: A MODE and a 
fipeciflcauun of where to leave die resuli. 'nio second arfluiucntci" be any uFdie followinft: 
l.-fheATOH FLUSHED, meaning dial dte code will he executed for effect miher than value. 

i'lTio ATOMDONT-CABE, meniiinfi di.it ihe caller of GEN Is Icavi he the decision op to die specific 
gcnernioras to where tu leave die result. 

3. An Dhjeetoriype DATUM which specifics a place for the type and value ofihe rcsuU lo be IcO- 

Typc DATUM Is nF PRIMTYPE LIST and eoniflini iwu elemenls. une for [he type and the other for the 
va^uc.The elements of a DATUM may ute on a variety of values in ditTereiii circumsiHinccs, ITicsc include; 

1, A TYPE name. Fliis cnn unly occur in Ihe Eypc slot and i[ moans ih:il the [ype of the object is 
>;n.fwn at compile time -ind this is iL U indic:ites di;i[ ihc cnde gcneralur need not put [he 
[ypc-ciidc anywhere, 

I/jTic ATOM DONT'CABE-'lliis means that the caller dtiesn't eayc whetc Ihc result for this field a 
I'he Compiler (Internals) 53 
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IcIL 

i.llic ATOM flNy-ACnii^ldlschegcTieralorUjlKivc [he rtsull in nny av.illabk AC, 

4. An ubicci itftypc AC. 'ITiis icH^ ihcficncraior lu TtirccUic rc^ulc in id a specific AC, 

5- An iihJKi of Type nDDRtSS:C or ADDRESS : PAIR. RiHh of Uicsc specify ,iUdrC!^SCS tJrt iht scacl: 
ur in Lhe inicrprcicr. 

G. An obJKl uf lype OFFPTR. An DFFPTR hjiE Uircc fields: .1 DATUM, an ofTwE Is, FIX), and a 
PHIHTYPE. An OFFPTR leJIs Ihc generalor [ii ii:4ve UlC K-SUll in iha word pointed lo hy die inner 
DATUM jniE uffsei hy UieuflSCU 

[fftn cicmcnl of a DATUM is ANY-AC ur DONT-CARE. Uie gener.iEor fr> required Co npdiiLc die DATUM Id 
rcllcci Uic uciual locudon isf die rcsulL If die eremcni is a TVPE. lhe gcner.-riEir mny c^i^mge ii m :m AC which 
m^^'iiis Uiiii ii hnppenud Lueud up wid^ihc TYPE In ihiit AC. 

'Tlic Kcnt;raLoi9 always return ^i DATUM speciryjng where lhe mult vas ai:[unlly left unless die cnltcr 
wjinicd the result FLUSHED. "Ilicrc h line spcei.il DATUM ihiiccan be relumed, it is the GVAL of ilic ATOM 
^0- DATUM nnd it means (liui Uie specified nude will n"[ reiurn a VJiiuc fih^it ia, ii j» j RETURN oriin AGAIN or 
stimechlng). 

Then? are^it objects Df type AC in die compiler, corresponding lu AC^; 0. A. 11. C. J5 .ind K AC Is special 
Aince ii can't be used as a piilnier. and ii alwztys coniaina very transient infomiaiEon. It is never used to fill in 
an AhY-AC slot In a DATUM, 'file oUier live ACs iite in the pool of av^iilable ACs. OhlecLs of type AC have 
About len difEereiit slots Jis^ucliitcd v.ldi [hem. 'They jire u^cd for frikding ^vniLnble ACs nnd generating otiCput 
Code thai uses them, 'lhe sTcits used in AC alloeailun are as Follows: 

I.AC LINK. If thra ts FALSE, the AC contains no iemporary value for the current computation. 
Otherwise, it is a list of active DATUMs thai contain IL 

2. ACA(iE. 'JTiis is only used when ibe ACL INK 1:5 n^jn-FALSE. It ib updated tcT a higher numbar at 
each use uf the AC and is u^d in ;in I.KU ;ilgi>riihm when an aetivc AC must be flushed. 

3. ACRESTDUE. IfUil*! AC 1^ curTOniLy equivalcni ut srime local vnrtJLbles. di|s sint conbiins a Hbl of 
IhC .symbEjL-ioble entries fur diese vaiNible^. 'Mm symbol-Lible cniiie^ tlieinseh'cs h?vc n slot 
lAlEcd I NAC5 tfi.^i p"ima h.ick to iJie AC^ fli-[| ccmuilit iLS type .ind/or value. Ilicy nisa contain a 
slut LuHcd STORED diai specrlie^ whether the only copy of the variable is in the ACs or ii is also in 
memory. 

4. flCPROT.'I'blsslot is a boolean saying whether (his AC ^sp^^neclcd or not. If the AC is protected, it 
can't be aiiucated for any reason. Proiccilun i&uniy mvoked for very stretchca of code. 
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5, ACPREf . This Sim SAy. th.i tlMs AC J«c.^« slighily prcf=rcnli:il ircn^mcni. h mc:.n*. =1^ oOior 
ihiiiea equal, dwn't choose ihis AC- 

■l-hc flC =11.^.1.1... .lE..ri,hm con^i^is p.i-.nl, .T.r^lrg ,0 Rnd lh= bot p..«lb)^ --did.,. ..l,.n .n AC i< 
.«d.d Th. -mine GEIREG h u«.d m nnd .n ...il.bk AC, Fi™ « ..]«:« .1. AC. .l.oL ..c p,.ucc,=d UfLhcy 
.11 .« pro,cc,.d. .». =nn,p]lcr eon....« .n in.c-n.l .T,,. .incc .h^. .h,..ld novo, h.ppcnl. If Ihcc ... on. o, 
n,o.. ACS ,.,.h .h^i, ACLINK. FALSE. GETREC w^ .ho^ Tron, =m<,na U.cni, I. "Ml p«fcr ACS wkh r.o 
ACRESIDUE lh.L .rc imm.ric.ll, .dj.-:..,. m .n,..h>:, r,c. AC |b=..u.. s,,m. PDP-IO l„«r^li^n. d«t.oy Ih. 
.„. AC), .nd «hich do n«.tav. Ihdr ACPREFson, If.hc AC ch,«c. h^ .n ACRES.DUE. code ,.E=-™cd 
if rccKs^iry Ul siorcnny ofllic vuriuWcs diiil ore unly in ACa. 

If „„ AC .M.I.S ^.ih -" ACLINK .h=. ,, f AL3E, GEIREG m.ds UlC AC »!.« m= sn„.lW ACAGE. Ccdt i. 
6cn.,...cd t„ «,.rt m= «.n.c«,. of U>= AC in . ,cn,pdr.n.j so Ihul i, Ls .v.ibblc. 11,0 nATUH. U...I wc- m *= 
ACLl NK =r^ npdAK^d u, ...d.c.ic Uu« Ihey a,c no* p..lnlit.E lo ,^mp„r;,rics as ,.nP"Kd lo ACs. llAU. 1. a 
p,«siblc .h:,. u sen..nu>r cmild nc.:d .„b-.«ul« 1. ACS, ...d oft.:, ^vsins one „. be Ee„..,i,=d in .-Ln AC, fi..d 

U,., -bile E=ncr.unB d.. second on= .he f.rst slipped b.rt into . ..,np«..ry. the i.i.cmu.. »ould Lhcn l«v= 

tDEencrutcL'iidc loickiadiin AC From ihc n^mpoiary. 

-\-t,^ COP mvoKM variouB sp«i^l-cnK .,pumi/,iHons hy pissmg Infi^n-mion up ^^d do*D Ui.^ ir« as code 
IS a=n«p;cd. 1-h. B^ncior. for condiUon.l brurchi^E FSUBRs U*;. OR, A«t= .nd COND .mpL.. a pr.d]»« 



gi^ncmuir -whenever pussllilc- This Ecncmio 



r is lifcc GEH eici^pi Uiai li uil:« Ihrcc iiddiUonal jTEi'^ncnis: a 



l.b=l .. bn-ncli .o, . flag s.yl.^ *l.t:U..r Lo branch o. truth .r falscc.^ .nd a H^ s..ylnB ^l.cih.r thts 
pr=dka=o is bcinE HOTcd- 'IT-c B^ncnil pr.d.^ic Ec^n.r^ior then K>oks i.1 U^c predicate node u, ^ .F .1 can 
U.1CC the ^ddJUonal.rEum...«rnr predicate ftcncr..tion. If it«n, d^e general predicaic sc.cratcrj.^t P«.«alL 



the areumciiLS down; oihcrwifp Li cnHs Gf ^J and ^cncraics 



ihc atldiiioii,il losiinE iind bmiiclilng c<idc liscLf. 



Currcn.ly A«P. OH. CO-D. ==., N-=T. G.. G=7. LT. L... D., 17, fVPE., NOT. A5S1GNE07. P.EMO, 
LENGtM? and EMPTY? have special pred-ra.ceodoas5«cla,edwiih their ecncraiors, Oihc« cnay be added as 

ilic need develops- 

Om<:ropt.nu...ion. are ■nv.l.cd by simply r«reni.1«Be.mmonp™ems OF Mt^t^ her in.tan«. the 

compiler rccoBm/^CSET X <* .X i» cs a I'HP- 10 AOS Jnst,w.ion and .: fiencmtes very emeK^ai eodi. 
For<REST ,X <- <LENGTH . X> l>> by rect>Eni/Jng the patwm oFci>dc. 

-l-hc eompitar .-.Iway. LiV« .dva-^tage oF as much Itnowlcdee a. it has a!>ou. the (ype. generated by 
particular nodc^ to generate ft<H.d code. Il-is i. espee-.=,lly the ca^ when ius> handling Lhe code for NTK 

nnd PUT In sm-curcs. I. use. type informafon co™:en.ms (he length qF the strfcmre and (he amount be.^ 



nie Cnmpilcr tlntemals) 



S^ 
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RE^TcJ for ilip NTH. HE ST Jf PUT, tu figure uui whether or nol iy Bi^ncmtp bounds chccVs in ihe compiled 
ctKlc, liiilsouscs Infiirmailon ahEiui ihc cu rrcm lypc nflhc slai being read nr wriiicn iif deride whether not to 
rcjd or wriic ihc lypp word. Obvidusly. a lot of this lypc Inrorm^iimn wns Ihc sumc inrLirm^iiion tibuilncd 
Jiinnglhe Analysis E*as of IhccompilatioiL 

Somccudc generation TDuilnes Jn? c:ipable DTchanging the order of fieneraiion of the suh-nodcs. This \& 
done lo try m gci the node rcquirine Mic rmsl ACs compiled finn sn that U won't inicrFcrc ^iih any AC 
rcquircmcnia ofiht: current node. LTiimbviously requires that the comnuiieii nudes have no inrerocting side 
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6. Making It Run Faster 

OnceyDuhavca wtirkinEpruBriim, you wilTpmbobly waiu ii in run fasL r"hc musi obvings way uf doing 
ihis \s la compile II Mill. prDvJcl« other ways to speed up code, chicny by climinaUng medliUcd submulmc 
calTs. jnd by reducing ihc si^e of garbaSi^coiJccicd <>piK». 

Mediated wbrouUne calls (or HCflLLs') are the sUndard meUiod of funcrlon cilllnE In Mot. iTiey 
provide 3 great deal of informailon and ccnirol during program dcveUipmeni .ind deb.igglnB. but the 
uverhc-id iif iin HCALL Is superfluous in dcbufiged pnidiiction prufirains. Con^cqucnily. scvcriil meUiuda eilst 
for removing this averlicod. 

A subtle Impediment tclncrMscd speed in a priiduciionprnfiram Is the jrnuuntLtriiirredevtiicdtLi garbage 
cullccifun- As [his k prupoiiJonal to Uie si/c of the garbafic collected spoL-c, it \s .idvniuagcous to nK*e Uiat 
Tipncp jsMnall aspo^ible. One wuy to cjo this \s to purify aa numy urUic static dau sifuciurca in the MliLaa 
lioraible. 

OrtC by-product uf the procedures mentiimed abovtr Is th^i TniK.h of the fcsuliing c:«de .ind fitructure 
becomes pure and diereforc shareable between mnny MtJi processes, 

6.1- GLUE 

A racMlty e*isia to allow separately compiled and assembled PSUBRs to be 'glued' together. TTils ma^es 
eulls bciwccn nSUBIts In the group much foster, as MCALLs arc replaced by PUSIIJt flie many InstrucEiona 
of-m HCALL are replaced by [he single PUSH J. bui die media [ion pnivided by MCALL Is losi: No FRAME is 
produced. GLUEIng is accomplished by the ctmciiicntaiion of [Jic code and reference VECTORS of the flSUBBs 
being GLUEd, which gives them o common "Frame of reference.' 

Addliidnally, GLUf is Interfaced wlUi the compiler sueh that: 

l/fTic HSUBRstan be mn unGLU£d for convenient tracing and dcbuggmg. Afler dehuggina. they 
Ciin be GLUEd together and run mucfi f^ter. 

2. An Individual FUNCTION can be recompiled wlihuui the Qvcrhcod of rccompiUng cveryihlua 
GLUEd [o iu> RSUBR. After the reconipiraUon. Uie eniiic set can he rcGLUEd. 

6.1.1. How to Glue 

-GLUE - js a PACKAGE and U may be obtained by doing 
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<US£ ■■GLUE"> 
'[■hccnHu.glucasri"ipnrRSUBRs:ind/orBSUBR-£NTHYlia^ 

<GROUP-GI-l]E T!^'i'^p-"nmp:nIom 
iub.-ii ilutriboolean 
s^ripl.-chtiiinel 

survivors: lisl 
viciiifis:lisi> 

where: 

s™„p.„.„„ i. an A.OH .. .ciurncd by GROUP-LOAD, „nd i. ^3 m. ™i, r«,m..d =r,.m.nL 

rcUiJClf:d be Tore use- 
...„, ir .upp«.d und . CHANNEL is ,.«d by GR<..,P-GLUL U. prtn, .». ta pr-^-^^ """"6" "^ "^^ 

^r/A;:"::::, r;.p^;^™,.;tr;.r^r.n. a.o„ .... . ... l.^t ....o.n^..r... 

-n,«c .« two odvon,.^«,. .=™.vinB .nnocd.d «SU8B-.«T«r. ."h^ S...P U ..dc .m.U.r b, *o .b«.nc. 
„r .he BSUB.-ENTPY. A,» .hc .odc To, .hc ^.^P s «duc=d. =. d,. .,«i= f.>. .."-.'inE "CALL. ,o *c« 
RSUBR-ENTRY.i. .amoved. In g...™l ...1, .b. ENTRY. .C.d ,. b. kcp. f,. ,- PACKAGE, n... .=n b. dcn= 
„V .pcifyins d,c PACKAGE u.i„e PACKAGE m.-d. SURVWOB mod. sta.ld be ««:d if -ho ..»< wUha » 
expliciilysUi^cwhicViHSUBR-E^JTRVsareuibckcpL 

e.1-2. GLUE as a Program 

,n .U..io« .O 0.C ^GLUE ■■ PACK.se. a,.« i. . P«.Sr.m .. which GLUE .^^^ 

..c^c^dcd. U Win P.t>mp. for o.ch or ^c ...1 ...n... .n GROUP-GLUE. pcr-nUcm. .he user ^ 
cunvcnicnily GLUE (and PQUHP) several PACKAGES m oncMsion. 

CLUE *^ 
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6,2. Glue Bits 

GLU£i..hlc I., perform its tr.nsr.nn.t(.ns.m complied or a^mbl.dc,>d. with mc .id 

pnx...c:dd.rin|,.s„^bl,. -mis «n,cturc is cared the -GLUE mi.'. J. is .n o^..,.. p.^^d on .he RSUBR 
by ihis FOftM: 

<A»D <ASSIGMEO? GLUE> 
-GLUE 

<P13T rsubr GLUE slue-f^ls.-uvecioT>'> 
TTius if . GLUE is tion-f At SE [ho :««x:^a.ion v^itl he o^r^iLiblc lo progrnnis swishing t,, use iL 

lm<:rn.n,. th. GLUE bit. cunsist of iwo l^iLS mr «ch w.rd „r«KJc ^n Ih. CODE .i.m^^^^ 
/i.lk.«..dbvw,>rd.spcciryinfic.-,lhn^inn,.m.lMn. H^r c,^h INTERNA^. -ENTRY h. , he ^,hIc. «hcrc ,. ^ w„,d 
aivinmhc..umbcr,.F-n.Bumcni5ill^l:ft.i.mihCofrscM.flhelri7EnNAL-ENTRVmU.cCDDEUV£CTOR. 

t-h. t...> L>i« for i^dividu;.! in.tffciiu,,,flrc infcrp,o.c=d ^-^iih U.c Ind.^x HcTd oftbe in.im«i„n ^s M«w.: 

lliis knipJEcs ihc imcructjun i^ ijiiin lending: 

Index field (H>:,ndbiis I implies the in.tructi«™i.an:fcn:n«m[h^^odciiscir(.jump.pc^a^^^^ 

rnd« ncid f R, -.nd bit, l impfi« . rcrercnco to ^ *mp:.rc slot oF the flVECTOR (Uic compiler does not 
generate such rcrcrenccs); 

Index field (RJnnd hits 2 implies ihc in^iruetion is iiii HCALL: 

lnde*field(flJandhit5>linp]icstheip,stn,cuonisarc|tr=nceioapurcMutofMieHVECT0R. 
Sec sttiJDQ 7 for more dCLiils on ihc fomini ofMDI Assembly cate 

6-3. PDUMP 

Mr>L provides a mechanism Tur sharing compiled proeram. among !«vcral Mi>.. processes and for 
dyn.n,.c«IJy moving the compiled eode l« and oul of the virtu.] ..ddres. space .. sp^ is nced.d in iho 
Intcrpreier. MUs mechnnism Ls dc«:r|bcd in dciail in «ci,on 4,2. This seccion d«crilx^ how lo conv.n « 
e^mpilod program lnioi.sharjbleveision.kmmnasi.nFBlM<i'-;..i-mNar>J version of tI.o program. 

Mrsi l4»;id the groiip-purifici", ' 
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<US£ -POUMP"> 
Nc»L GBOUP-tOAD yourgraup (QT groups). 

<GROUP-LOAD ijmanillkuidns> 

which rc.urna ihc iroup-namc uf the grcup. ihis (and any oihcr sroups Ui be dumped luaeiherj is (hen 
p^irscd u> Lhc puic -dumper: 

<PDUHP &fti u n-iniirie/:aii "n group- namf2:titom .., > 
ITiiscrciics scleral files, only unc of which yuu need be concerned wlih: 

s'la'iie^ Hrcmp'"aiiwf f BIN 
IfgiveninpreiiianimeErijup-nnjnc, PDUMP wiJJ crc.icc one FB IN tile for each firuup, but only n single f IXUP 
and niinali? SAV Tile corttiining [he fnups Jnd cinle fur .ilL of the aroup^ nam&L llic f I XUP and 5AV files 
are pui un Ihc "HUQTHP" directory flnd cvcnuially arc inserted In iht pure cikIc library, as described in 
section 4,2- 

AUcmaiivc mcmiids uf POUMPine nrc ui specify ihiii as jin opUon in to [hi: pr*ieram GLUE (sec scciioa 
G-l^ZlnUriflUSC lis preloaded pduMP dirccily iiUcrexiUna iisBtADCR widi tS. 

A wjimlnBabouicmnbinlngGLUE and PDUHP: if you :i|icmpi to PDUHP several eruups ihni ha^t been 
GLUEd logciher. yuu will lose, i'h'S rt because the reference* to ihc 'eiuiip-RSUBR' will fall on Uie wran^: 
OBLlSTs. 

POUMP alwi produces a stmciurc analogous ui ihc GLUE bits («c scciion 6.2) produced by Ihe compiler, 
bill c^ntiinlnfi unly informaiioji aboui ihe BVECTOR ofihc HSUBH, for the use yfpURIFY <KC secUon 6.5). 

6-4, 5UBRFY 

SUEPiricaiionisa way ofRciiinB rid ofmany of OicMCALLs which could nm be praciically removed u^nR 

GLUt. rra FUNCTION iscallcd by many scpiiratc groups i[ is ditficukto GLUE li Lo ;iU die groups or to GLUE 
all ihc Eftiups icficihcr. 

Whjit is really needed is to be able to allow someihing ui be called with PUSHJ from separate groups 
wkhuuirorcmaitiobcpnnofthoscBroupi T^k is indeed Ihe case with PUSHJ entries lo Mm SUDHs tin 
Ihe Interpreief). A user can make hi^ RSUBfls loofc like SUBPs in Uiis respect 

SUBHFY ukcs a group, which must he in NBINfnrm:iL Ll pufificS The RSUBRsand PSUBR-ENlRVs in (he 
group JTid changes ihem m that ihey can be CjHcd with PUSHJ. Tlalso produces a Tdc, known as the 'preload' 
nic, which CUD be used by [he eumpHer to gcncraic PUSHJsiu \hc functions in the SUB Rificd group. 

PDUMP 6-3 
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SUBRFY shtiuld be U^'idcd before iDadJng tht? group Hj be priKTCsutil. T\\c reason for ihis Is thai it 
Bunmniccs ihiii GLUE biis&iay around- To load SUBRFY 
<USE '■SUaRFV"> 

YtiU should Otc-p GROUP-LOAO Ult gmup. Your group sliuuld be GLUEd already, since SUBRFY does not 
GLUE the group Eogcthtr- 

SUQRfV can ihcn bt^ culled in Uic rollDWing m onncn 

<SUBRFT cnnip.-iuoni 

jlle- name: string 
oiilpfJl:chaniier> 

wVierc 

gnmp\f.\hs name ar [he ^roup, 

7J/^HaH|Flilheii:imciiF[hc Tile m *hlcb SUBPFV ^huuld puc ihc Jiirtinn.niluEi Tnr ihc coinpkTer. Hiis deniulis 
[i> ihe namcorLhc input file wlili wcund n^mic "PRE LOO". 

i>i,il<s>i Is nn upili'nai -irgiiincnt ivhich specifies j CimNNFL tin which ID print inFomiadon abuui SUBRFY's 
prugnrss. 'Ihc deruEilt Is nui u> print ;mytliiiiB. 

The file pniduccd by SUfiRFV ihouid be FLO/hDed For coinplluticins *licrc runciidn^ in ihc SUBRifred group 
srecalledr This eat. be done by FLOADjng ii in the 'Ihlngs to do' pariuf a cDMiiAT plan. 

l.j>LC purirc:ill[>n, SUBRiHcalinn charges tile MllL. The onTy woy lo prescfve the SUSRlHed group is [o 
SAVE [iic Mdl. Jleforc SAVEing ihc MOL the "SUBRFY- PACKAGE Should bc removed. ITiis ean be done 
by doing a 

<KJLL-SUBRFY> 
rall4>wcd by 4 

«;c T>, 

SUBRFYlns a group Implies thai the &roup is not going to change at nil Frequently, IF ever. A new 
SUBRFYed SAVE file may he created at .nny time, and elements uf die eniup may bc recompiled. However, if 
the calling sequences of any uT the riinciLons in ihiii group change, you inv;il+dute any Functions ciimpHed 
using the 'preload' file for that group. Inshoru think iwke before tying you rsclF down w|[h SUBRFY. 

6.5, Purification 

A facilliy exists to pcnnii the purincailon of Mui- ubjecis. Purifjcd objects caii he ^hiired between Mdl 
processes :ind also are not examined by die garbage eollecton Whji follows fe a description oF how this 
fnciNty can bcused. 
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'Mw pxinrKMiou facllfiv in Mui la mosr iis^rul in Uii? crcailun of 9[ih$y^cmi>r Nun-puriricd Pi/ECTOR^or 
PSUei^!. ;ind i.ibl« Lrwd by subsyaicins arc kcpi in fiiirbagc cullccccd ^p«:c. Hiis means UiiH iliKC ubJMii 
which wiU nc^er become garhagt?. iirc ci,imiiipd ai p^ich g-irbngc cufl«Uiin. sinwing ddwn [he B,irbage 
ckiTlccimn proct-ss. Also, if twii pi^opTc arc u^ing the siiincsubsysirm. they C'lnnoi &hnrc the mblc&unij ftSUSRs 
kppl In B-rh-ngc coJIcctcd spflCt. Hy using piinncHiclon ihc&c twci pnibTcmtuin bcallcviatcd- 

Tiipiirir^ moyobjecti the user cfthCjiiUn: PUHIFT SUBR. TTic object will be purinccJ, iind nil references 
It] thai iibjcct In U^c Mm care imngc will be changed lii poJni in the new pure object. Iliis simple method 
c.mnoi be used In ihc cnsc of RSUflRs, J'uriricLiiion uF fiSUBR^ is l scverul step pn>cc5f: beginning with 
citmpUaiion, 

6.5.1. Ptirifylrlg RSUSRs 

Oncc>oiir FBlN "r NBIN is rcad> you cm actually dct piniriciiliim. Tii da tills firsf 

<OSE -PURirV"> 
■n>is PACKAGE CEinlulns the rotJllnca needed ti* pLjrify RSUBHs. 'JTien GROUP-LOAO Uic nics you >wish to 
have pui-iflcdr Once [his \s done type 

CGROUP'PUBIFY e/Y'inKnltf/f oiilf"ir:cfnifmrf> 
This wllT purify ;ind link ,ill flSUSRs and RSUBP-eNTRVs In the gnnip iird will alsn aticmpl to purify any 
RSUBBs ur RSUHR-EN I PYs called by &iC e'^u/i. Glvjn| ihe uplionul ciiu/incl ^i\\ cause GROUP-PUR If Y lO 
print mfonnaikjn cunccming die pr^jgrcss ufthc purinimilon. 

GROUP-PUHIEY will only purify RSUDRs and RSUflH-ENTRYs, In order to ptiriPy UblcS, etc. use the 
PURIFY SUfifl directly. Since parincation ts an curcmcly expensive uperaiion, it is rcetPin mended that you 
collect luge diet the things you wish 10 purify intoa L1S7, VECTQfl, etc, and purify dial structured object. 

Once purificutlDn tina occurred, several things may be dunC to recover wnsicd gortjage enllected space, 
Thcuscrcangeiridufihc "PURITY' PACKAGE by doing a 
<KILt.:PUHlTT> 

Ihe user can aln remove much of the overhead of keeping a gnmp aruund by urJASSTGNIng tha 
emup-namc. HemnVfllstifthis lypesluiuld be funded by tip c*pllciicall ii. [he garbage eollecuif in vukins (he 
"hairy" GC feniufc. asmuch of the storage to be re£nincd is pointed ^t by .tssociaUorta. ITirscan be done by 
<GC T> 

InDrdcriosavcanrc wJih pur^ffed Mui, objects you must SAUE. Resttfring a SAVtd Hie with puri Red Mot. 
objects will cau^e those objects la share widiany oUicr MliL RESTOREd fn>m the same SAVE nit 
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6.5.2, Purifying an Envtronnierit 

Many sub^vsccms mainuin a list conininlng puinu-fs Lr> all Lhc sUlIc dnia simciurc^ bui1i by thai 
subsysicm: diap.iiirh Lib!cr>, daia bastrs. and so on. The lisi ciin be given ut PURIFY lo mttve all lEsconponcnts 
inio lhc pure area However, [here are other slfuclures In farhage culloclcd ipace ihai may he purincd', c.fl.. 
lhc BVeCTOfis uf RSUSRs. nsuBR DECLs, and sj on. 
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■|"he "CLEAN- PACKAGE examines [hL-w Mmcujrcfl. kwiline fc>s Umse which mny be purified. U may also 

be u^ed rnr InformatiDnal purposes. To gel It 

<USE "CL£AN"> 

"CLEAN- hjs one inJULir EhlRY. CLEANUP, which pxammes every ATOM of every OBLIST In Uie MlJl_ )[ 

may perritmi a variety 4>rruneikms, but It 1:^ mii^u EiHen used ni iTiJibe DECLsiiharc wirii^ jnd [o accun^ulaic a 

LIST orpiiritiable struct t>rcs. A.11 ofits argumenis art^ optiunaL. 

<CLEflMUP priiilT.btNtlean 
re^eiT.-li'i'ivan 
<Jecf?:boo/fart 
sdecITiboiiiean 
pure?:tn>otfon 
cfiecU?.'booIean 
avoid: list' vJ^obHsU> 

print? b^ by dcraulc FALSE. If non-FALSE^ Lnrormatton ahoui each AT(M examined will be piinicd as 
CLEANUP runs. This is a /uf of infonnadoiL 

rffxfi? is by defaulE T . If non- FALSE, [he LISTs of objects previously cyTlected wi^l be reset before CLEANUP 

lUIU. 

cfec/.'is by dcf4Eil[ t. Ifmm-FALSE, ciichDECL clcmcni wlU be mad? lu Ciiisi csncUy once in the entire core 
ImagCr ^- g,, ili^re will beunly one cupy ofihe DECL <LiST [REST f lx]> In thi^ core Lmagp- 

fir/ec/?isby default T. \\ is ^ixnWar M* decl?. but reform to GDECLs- 

pufv? ytWa whciJieT lu make a LIST of all die puridjibTc ubjccts in Elieeure Image. I [ is by defjiuk T- 

cAft'jt.'icNs whedicr lo mate USTsofnll die TVPEs, RSUBHs, flSUBH-ENTRYs, e[C, in Lhc core Imngc. Ti is 
by dofauli r, 

aviiid Is a LIST of OSlISTs poi lo look In; ll Is by dcf^uTt lhc ODLlSTs aaoclaied with "CLEAN" and 
"PURIIY-. 
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CLEANUP returns (if/iwrff.' Is nun-FALSE}asLrueLureliilsosiuredas:heGVAL of PURE LST} which maybe 
given to PURIFY. 
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The results of runninB CLEANUP may be CKamincd by 
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no "llic MIJI- l*raafainiiilne l-:nvironmeni 

<PBIMT-CLEANUP> 
As ihc <ibjeci In running CLEANUP is lu shrink ihc aiix of dflc's MUL and its Barbflac-collccicd spvx. it is 
uscfut lu be able lij rcmi^vq CLEAN after icha^ done il^ ivork. 

<FLliSH-CL£AHUP> 
removes cvcrjlhingaasociiiicd *viLh [he PACKAGE fram ihc MDL. 

G-5^3' PurlfJcation Suinmary 

In a ■^jinplt^ ease, nnecan purify a "'iubsystcm' ofoiic a^oiiP n'a«''™i"i' ^V 

<USE "PJRITY- -CLEAN-> 
CGHOUP-LOAD "foo'y 
<CLEAHUP> 
<GROUP-PUPlFY foo> 
<KILL :PUflITY> 
tffLUSH-CLEANUP> 
<GC Q T> 
■CSAWF -/'"-> 

6.B. TEMPLATES 

"Jlie PRIMTVPE TEMPLATE ciiUtdownun the need for ritoraBc by allowing the uaer to speclfji cuaelly what 
he wants a sinicmrcd object to contain, simllor to^Einiciurcs' in PIVJ of C- 

To u*e ihii; Tealurc otic musi crcjilc a nc* TYPE arPRTHTYPE TEMPLATE. This cm bc accuinpllshed by 
u^lng (he ETSUBP TEMPLATE. The piuccdurc for doing HJ is: 
<U5E "TEMPLATe"> 

<IEHPLATE fiaincatam ... iECEJ --- > 
where nawff is the n^ime uf ihc nc* TYPE and vpecs arc ^>ccfricatiuns for each element of ihc TEHf LATE, 
This rclums the type name oF ihc TEMPLATE and creates a creator of TEMPLATES ufTYPE name, called 
nameitscir. which can be applied to arguments to ctcalc ubjccis of thai TYPE of TEMPLATE. 

The Epccincaiiun for ihc dementi cjin he nFwveral furm^ kcan be one of 

a TYPE: lypfratom 

h1 ^-element LIST: iiypc:iiiai7j teii£ifi:Jt^ 

a 3-clcnicnt LIST: liypfr/Hiuii feiisifi:Jix cvuiu.-Jbi) 

Dclow arc $umccx:imp]tsjKinEwiLliCAplJ nations: 

PurLficalion &S 
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LIST 

nan 19 bit LIST polnicr. 
(FIK lej 

is a hfllTword FIK (can be boih pEtsItlvc and negative and Is chocked fbrovcrflow). 
(FLOAT LB) 

B an IS bit FLOAT (which bi Uic k;ft halFword Qf a "normal' ^'LOAT and therefore somcwhnt rcsiricti the 
precisian). 

(FIX fl> 

(where n KicssUi-in 18) is ii psffiliiw FIX of length « hlls f Is noi checked ForiivcrnowK 
BOOLEAN 

bnoia Mm. TYPt, bul a one bit FALSE ornoii-FALSE depcndi"B«n whether the bJiisOnr I. 

(tlVECTOH IS n) 
■son IS bn UVECTOR polnli:r, "llic UVECTOR is uF length ;i, The simc cnn be dune For VECTOBs. 

(STItlNG 36 n> 
f«a Jlibii ritringbyic pubiier. Il-ke STRING IauF length n 

ANY 
b nDi;i Mill TYPE, rather anything [:an en here. This Is relatively Incmcicnt tn use Jn TEMPLATES as it lakes 
up 2 words. 

In Qfdcr to preifidc mare riexibihiv in unine TEMPLATES, two oiher ficUs arc dlluwcd, .in rtp/ronat Held 
and a fpn field, me ofHioiwi TicAd allows the uscrtoctcntc TEMPLATE TVPFs which will have the same basic 
simcEurc but which can hflvc opijomil cicrnenis determined when the actual TEMPLATE Is created. The resr 
fields lifcc itie iijukhihI Held. :jFIdus elements a> be opiipnal but spccjTics a p.itteni fur anv eTenients tJiat are 
added un. It is snaAoscus to REST in DECL?, Sepaniiton i>f fields is accomiili^cd by The use of the strings 
"HEST- and "OPTIONAL-- For example: 

<TEMPLATt FOO FIX "OPTIONAL" LIST BOOLEAN "BEST" FLOAT> 
T^ia Creoles a TYPE FOO oFPRlHTYP£ TEMPLATE i^hich always has a FIX as die first element, can have a 
LIST asa second element, can have a one bit I or *FALSE O Ji^ thcdiird elemeni and can have any number 
uF FLOATS from Uie Rmrth elcmenion. 

e.6.1 . Use of TEMPLATES 

TEMPLATE TYPES may be [luicjehE oF as primlllvc TYPES, in Uial Uiey each have a unique sturnge 
representation. On the uihcr hand, the TYPEprih of any TEMPLATE TYPE is TEMPLATE. A primitive 
TEMPLATE (whtch cannot truly ejilsiin the language) would louk lilcc 

6.6 TKMHIjVTEa 
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{ elemeur-f eteriiErn-2 ... elemeiu-n > 
Hca] TEMPLATE TYPEs aiC rCprtscnird iib HfWTYPES ilf this primilivc TEMPLATE TYPE. 

-n^is mcLhod iE similar lo ihc usual m-^lhod In Mtji. for rcprpicniing any nc^ TYPE, in lhj*t a HESTcd 
TEMPLATE *ill be pnmcdCMTYPEdlo it. PRlHTyPE.Nclcth.-.I- TEMPLATE supnnicd cannot b<: read by 

BEAQ: a'prlmlUvcTEHPLATEcannutnlst, It is bcsnoavuid pruning BESIcU TEMPLATE^. 

RcIdw are some examples or i3ic use i>f TEHPLATES- 
^TEMPLATE HAB- 

fix 

"OPTIOHAL" DOOLEAM 

"HtST- (FIX ia> {FLOAT 1B)>S 

BAR 

<BA11 1>S 
WBAR (1) 

<aAP 1 T» 
fSAR {1 T) 

<BAn 1 *> 1 1-0>1 

«BAR {1 *FALSE () 1 \ .D^ 

<5ET A «BAR 1 <> 1 1-9 ?>>* 

«BAR {I JTFALSE (> I l.a9e437B Z> 

<PUT .A I a>* 

4QAR ffl #FALSE (> I l.fl9a<37S ?> 

<PUT -A 4 1 ,e99>I 

#BAR (6 #FALSE () 1 1.9900937 ?1 

<TEHPLATE BAR (STfllHG SB 4> -REST" AltY>J 
iTFALSE (-ALREADY A TEMPLATE-) 

^TEMPLATE BARl {STRIHG 36 4) -RESI" ANY>* 
BAHl 
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<SET A <aARl -HELP- 2 (} <>»J 
ifBABl {-HELP" 2 () #FALSE t)} 

<PUT .A 1 ■■GO0D->S 

*BARl {-GOOD- Z () #FALSE ( )> 

<PUT -A I 'GOOD -BYE ■'>i 

TEMPLATE -TYPE 'VIOLATION 

PUT 

LlSTEHTHG-AT-LEVEL 2 PROCPSS I 



G.6^2. Assembly of TEMPLATES 

Once ti t(Ci of TEMPLATE TTPEg is crcaicU, Jis Fur LJic TYPE d?rrnliiE>ns i>f a ^hsystcm, ic snvcs linip lo 
sUjfC jiwi»y ihc 'cnmpUcd' TEMPLATE gcncriiiMCS nnd inn nxiciiie them each Lime ihc dcnnJEiuiis jrc la be 
used, 

'Hic "TEMHAK" PACKAGE rHudiflcs files which dcriiic TEMPLATE TYPEs Ui cunLiln Uic TEMPLATE 
dcscriptkips and RSUBR^ r.ilhcr Ihon Uic calk to TEMPLATE. I[ is onlv uflcAd, nf cuui^c. when The 
TEMPLATES iircd^Hnt^d In a file whldi will noi nurnully be edited, since [he new HTcs arc in ^riB JN' rormuL 
[ei tiiJ3d Ihiri PACKAGE. 

<USE -TEMHAK'J 

'il^C PACKAGE hos l»o entries. 

(TFHPLATE-OUMP iu^wt>-'i^inif:iHom > 
lakes [he sruup and inijdifics iL such ihai <tiSF -tehplate'"> hceomes <USE "TEMMLP"^, 3nd att 
lap-hivl inviicaliona of TEMPLATE arc repl.iced by calls lo BUILD-TEMPLATE (Sir iJit- TEMPLATE 
dracrlpilonfi}, SFTGs of lllc TEMPLATE -EcneraUng RSUBPiand ihcGLUE hfts for Elie nSUBRs, 

*F1LE-TEHPLATE mauiisiniiiL cruipui:siriiis> 
Uhes on input flic and nerfonns Uie itimc service, GROUP-aUMPitiE die rcsuil U> Uic opUtin.i! ouijiur file tby 
deF;niTc Ihc some lilc with wcond lunic "hiBlN"), 'ITiia is useful fur Rlc^ which ciuiiatii nodiing bui TYPE 
(Ic-finJLicins, u coinLnE>n prjc|.lcc m UnQC subsystems^ 

ifihc TEMPLATE TYPEs arc dcllncd In h file whifli will he cJUed rrcqiienily. .i diffcreni set ufntiitincs is 
used nflcr trcJliuE UlC TEMPLATE TYPEs; 
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<DUMP- TEMPLATES i Jf^irijiii-/iis:sinn^ > 
pb]cc?ii ihc TEMPLATE dracripiiiins {'ivi the RSUQRs) In Uic specified ilcscripiiaiii file It dues so fijf all 
T£MPtATE TYPEacvirrciuly dcHncd. 

<OUHP-RSUORS nuhr^'stnnf rpnipl/JH-HPe:aftim . . . > 
will pclRiiTH [Tic s-itne sen ice Tur ihc TtMFLATE-gcjicraliiia PSUGRs uTthc TYPE 5 given j^ ihc sccuntL and 
l,i[cr .nrEiimcins in DUMP-BSUBRS. 

ITicit wm now he wa files, tmc conT.ilnlns ihc TEMPLATE descnpiiimrr mid the uTbcrihc RSUBR5. ^Trrae 
may n»* hcii^cd ujcrcaicihe template TvPEs wUhuiii USEIng "TEMPLATE". To do so: 

(USE -TEMHLP-> 
"11114 defines Ui? RSUQRs needed m {ji^e Lhe TEMPLATE dcscriptictn&.ind mdkc Litem useful Id Mdi. 

RELOAD iii-Sfrijil'oiis.'sliiiis> 
llic me i>f JcKTlpiitms (ilic flie crciilOJ v-ith DUWP-TEHPLATES); ilils mus/ 1» loaded hefore die RSUBRs 
nic. Hicn lii,id [licRSUBn^ HlC tchc flic creaied hy DUMP-WSUBRS): 

< F LOAO nubr5:sfnnS> 
Far irtjinlmuin twn'Cnience. "11 ma^ he ncccMaiy lo pui n FORM in ITIm dint create TtMPLATEs: if ihe 
TEMPLATt files dMCiibcd hero ciisL F LOAD them; olllc™!™;. tUSF "TEHPLATt"> and crcalc Ihc 
TEMPLATES from scrjichr \i is of eciurse powihlc lo manii^dly merge Ehe iwu TEMPLATE deflnilinn files 
(preftrjbly by u^ing GROUP-LOAO and GROUP-DLlMP). So lofii as Ihe TEMPLATE dcscripUons precede the 
TEMPLATE R£UBRs. 

TEMPLATE RSUBRS -irc crpaied with GLUE bits, Sa il is puS^iblE: in glue Uiem inlo grchips and to purify 
ihein. 
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7- The Assembler 

1l Is ocCH^sionally ncccs^ty la \vnic Mdl rauilncn In assrnihly ImigU'igc. usunlly la iiiurrfacc wiih n fcniun? 
nTihc (ipcriiiinE syaicm noidtailabic In Ihc imcrprcicr. The MiiL a»cmbl<Jr( which K alw> used bv the Ml3L 
cEjnipncr) pnividcs Ui is ability, 

7.1. The Assembler 

'ITic Mnl.asTicmbkrprDtfJdcs flic Mm user wlUi a menns uFwrUing nSUQHs dirmcly in machine language. 
The a&acmblcr \s alau used as Ihp objccr Tqngijagc oF ihc compiler. Tills sectlun Is a dcscrlplion of ihe 
n!4semblcr. lEs use, nnd s^imc oFiu pscudo-iipcradonK. 

7.1 .1 . General Organization 

TTic MDi assembler is wrlth^n ^^ Ml"- to prodi^c todc UiJi runs In die Mm cirvlrumncnL It takes 

jiTEumcnEs In ihe fitllowlng farm 

<riLE-'ASSEMBLE nii^iti/llr.Slnne 
"iiipni-jt/E.-alring 

The argvrmenLs arc an InpUf-Ji/c CL>riliilnmB Mill nswinbl> code {possibly for v^vcral RSUBRf), on opiional 
nulpui-Jiie In ^vhlch ii> pm \\\c binary jtutpul (by dcTsull ihe same file as fiiptii but with sec4>nd file name 
"NBIW"), and an (iplLLknul Ihird arEtimCnt which iclls whclhcr lii use NBIN format EivilpuE^ a^d which under 
HEirmiil cJicumsiances ahould .ilway^ he T. TTicrc arc Tout other opiional aiHumcnis i^hkh arc the same as die 
UCimd through finh argumciils ofASSfHaLE, 
<ASSEMBLE totl^ 

mnsasB 
lisi 

(AllUic arguments are opilam-il wJih the encepLlon oTbody.) 

Ixriiymay ben CHANNEL. In which ciSc all insinicdons in Ehc fife a^stxriaicd witii the CHAMN^L arc iksscinbicd, 
or ii may be .i ainjciurcd iibject, in which case all histnicUon^ m ihc uhjcciarc a^Knablcd. 

toeali specifies [he OBLFST [» use for Tucal symbul hukup when the bvdy is a CHANNEL. The dcfauU is 
<\ .0BL1ST> when die a.'iscmbler is called. 

'r'csvfiniri Hi CHANNEL Co receive error messages^ clc. I[ defimlus U> . KCBSAGE -CHANttEL. 

li^i Is a CHANNEL lu iceclve an assembly MsUns. U Usi is nol supplied, nti Hieing Is generated. \? !isi b a 
non-f ALSE non-CHANNEL, and "icsviges i* a CHANNEL, dlCn [he ina^i-e^ CHANNEL will receive Ihe 
address utcach labcL If /Vi/ is a FALSE, then no lisling is produced. The dcfjull is . LINE-CHANNEL 
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(Inki.illy LINE-CHANMEL IsFALSE.) 

syiibafs ind'icBiQs iFmn: Uial ii DDT iyfnbol tiWcornll tlic r:ihi^ls fur use with -BDH- (accKcuon 7.2) will be 
ecn*?ni[cd. Hic dtrFauJL i& . MAHE-SVH-TABLE tlJli"iil]iy MflKE-STrt-TABLE IsfALSE.) 

7,1 _2. The Assembler as a Program 

"J'hc asscmbkr nJM! »i5U 'HFi prcigr^m called ASSEM, **ihich cnnpsulaics F TLE -ASSEMBLE. 

7.1 .3. Formal of Assembler's Source 

'lilt! MiJj ns'ncniblcr's cqiiiv^ilcm uf ji llneDfccKlc is -i FORM. [lassemMcs FOErM>i miu Ln>iL[uciiun:i in mucti 
the same way that a typic;il assembler ircuLS Uncs i>rHiun;C[:»dC- ATOKsjil [lie u>p IcvcUKc. not in FORMS) ,irc 
trifiiicJ J1K IjibclN. Ilic fOflMtihrc asscmblcil biiwJ on tht TYPE nfUic GV/AL "F Ihe ilisi ATOM in tlic FORM. 
iTic GVALs orATOrts whi^aC PNAMES :(rc lilt' PDI'IO ^ns[Ull:l^[^ns jrc ipf TYPE OPCODE (PHIMTYPE WORD: 
Uic "value AcirJ' iiasibt^ 3G bit value <tf the in^Lniciiim. Fur example. Id 

<MOVE A" I (B>> 
Iho Vahic of HOVE [ht tixc OP 03 LIST) n flOPCODE 'EOnODODODOQO*. ITiis FORM iS jSwmiilcU dirccUy 
jni" an ifisimtiion. 

If Uic GVAt of the flrsi ATOM in a FORM is i>irn:ihins applici.blc ISUan. FUhCTlON. RSUBR etc.) the 
FORM i^ EVALcd and itu; rETSuliing SPLiCf uf f ORH<i Is asst^mblcd. 'Jliis is huv macros and pKiidD-nps ore 
implcmciLicd. Nmicc ihji a pwudo-np <ir macro may pmducc noci>dc by murning an empty SPLICE. 

7.1.4. Instruction Assembly 

tlaving dcrciinini^il thai a FORM is gDing to ascmbTc Intci an in:>>lrtictii>n, tin: ^Ssirnb^i' bki:>iCiilly iidds Up 
the vb]iK-5uF4ill itic Jicms in ihn FORM. ]n the ca.v ofiEcms ofTYPE OPCODE, a Full 36 bit add is performed. 
Iicma Df TYPE aODRESS refer tn labels In the pnigram. Sinec ific cutle is all lucacion insensitive and will 
muvc aruiind during g^rb^ige coHccllim, references lo labels must be indexed by accumulaiur H, the baAC 
Tcgisier. There F*»rc, Lnbcl symbrils incUidcan M in Ihc leH h-''lf ^md must 'ilso be adiled in wiih a FuTI-word add. 
Items of PRIMTYPE WORD other than OPCODES and ADDREBSk jrC AHDBcd with -J?????" before being 
added, and the carry froin right halF In IcFl halFis 5iipprcsH:d. When ATOMS are fiiund in FORM.sihnl iire being 
oSTiCmhlcd inii.> insiaic linns, specinT hki^up fulcs arc in eFFecL IF the ATOM liuf. a glcibal value, thai value is 
used. IFiJie ATOM docs nnt havea global value but has a k>c.-|] Vitluc. it is used. IFlhc ATOM h;is neither a local 
■>r global vahLC, U is assumed to be a locul symbol For this assembly. In this case the symbol value is used If It 
hi£ already been dcHncd. uUierwisclL is added Lu a list uF as yel undeHned symbols. 
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Objccis^tI.cril,niiArOHs or PPIMTYPE WORDS c^usc the K«mbt««,Ifll.^ fecial action. 

- LIST^arcu^d [nirtdlMic swapping Icll*«idriBht halves. Kor example 
<HOV£ (1J> 

would puE ihc 1 in ihc IncLcJ. field of thi: MOVE insiruciioii Nmili^r u> MIDAS). 

at the cud (irihc prcteFHim. Kur CMmpIc: -™-"pun-o 

<PUSH TP- fcl (1)>J> 

pushes a consuni eon LiJnJns I In the righmndfcfl halves. 
- A fOPMif^simpIy EVALcdandthc vjiluorciufupdisiswj. 

7_-|.5. InUrai Symbors 

ITip OBLIST ^tmciurc in cnbci during .iswiTibly is 
iofl ifull DEFAULT li^iil rool) 
r-he OSLIST .;, I. n.mcd OP and .oo:alm d,o PnPia .^^..^ ^^e Mr>i .^cumutat.r dcHnitEon. (in b.ih 

.eeuniuUE.rand.ddre^.neld.K.ndthep,.cud,M>p..-rTicOBLISTWn,n.n,cdHUi^DLE.nde.n..insva^^^ 
OF m..ny labels m, he in.orpreEcr.f7.i.cr.bl«proen,n,sf^du thine. liVcOnST F INIS>. the .L'mrf..rd way 
■O «,t from .n RSUBP. When ar, i„3lr^Kr^„n is a^cnbkd ,isin£ . synih^l f™ the HUDDLE OBL ISf a fi.up 

»al» generated s,,rb.t..5die.ymh,Mse,sadifr.r..,valu.m.ne^Mnr,,h.=ode .an be .i,^^ 
liiadcd. Lo^-ufi's. die user's loc-il sjmbol OBL TST and rpu/ is the ROOT DBL IST. 

As i.u.ied earti^r every nccumufator hns two symbol, assoelated wid. k, one fi.r die .ddrcss field and cnc 
ror the acc^mudau. H.ld, ITis is because iher. Is m, synu,. to specify whM. field i* intended. TT^e addr«. 
symbol is simply ihe aeeumalatora n^o, and the accumulator symbol -. the nan». wiih an a.,.nsk (-) 
appended Id it; e.g.- A versus A*, 



7.1.6. Macro Writing 

Whenever an elem.m or .ubclemont oFan Insm^rt^on H a FORH -.nd Che firsl clement oFdie FORM baa an 

APPUCABr-E GVAL.LJ.efORKis.vah,.[edand die n..ult<unfcssitis:, SPLICE) i=n.-o.aluaied.^if it were 
m place oFLfte FORM. ITiis FeuiurceonHliuiQ U,e assemblers n^acro Facility. 

Kor compadhlHiy be.we.n "loHcvcF macros, which eciterate whole l^.tmcMom, and macn., which 
B-^erate parts of ari .r^siruetion. ,up-le.cT macrw may wish tu return s.vcn.1 in..r.eiiua.. To mdicaLe d.« 

v^hat is returned .s several in.irueLk.ns. It i,nec«s,nry[ojr(u.Ti an object of [yjx^ SPLICE iPflimypELm^ 
'he eicrr-cnt. of Lhe SPLICE are crcated^individualin.ErucUon.Anempiy SPLICE may be returned fmm 
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a mncfu which Is pan nT an lns[ruciu>n, and ihc effect i4 aa if 41 were relumed. This is Ihc only SPLICE 
wliich may bcrciurnctl frum a macru which is j pan uf an Insinictiqa, 

7.1.7. Pseudo Operations 

l"hc ncM pan of this documcni ^till dcKrlbc pseiidu-ops available in ihc Mm aswmblcr. Then? is no 
dllTcrcncc between a pscudo-op and macm in the ssscinWcr cxccpL th;i[ ihc pKiidii-upcraiioHs arc supplied 
by Uie iysiem. 

ThJs A :iboui the only rcnulfc*! psciido-op. It must be tlic First lusinicilon lo he jsscmbled- It infcca one 
afgiimcnL ihe name oT ilic RSUDR being aucnkbled. IT ,iddiiu>n:il TITLts oTC Tiiund in a fitc being 
jts^mhlnl. they nrc nsr>Emicd Utboth end [he p7evioii5 RSUBEf jnd begin the nenL 'l?ic nissemhler prints each 
TITLE on Ihe meWiiEcS CrtAHHFL iis It i* cncounlercd. 

<SUB-ENTHY citln.':,iinfu dc<r> 
Mils pscudoop is used m JeHiic addiilonal RSLBR-ENTP^s for ihc RSUBR bcirB assembled, ["he entry 
arguinerl is ihc niiiTiC uTihe PSUBR- ENTRY and the itpLiunal <^fdaisumetit is j DECL for the entry. 

<INT£ftNAL-PriFRV ^-f'|F^-io!!^m invs:rix > 
is used tu create an INTERhAL-ENTRY Tor a GLUEnble RSUBR. Fls afBunnrnts are the name of th-- 
INTERHflL-tHTRY ai>d Ihc number of ,nrEuincnK that <^iEI tiiive been pushed cin the stack for it when It \% 
CilUcd, See also scellon T.\*i fordeinil^ O" wrilingGLUEiihle RSUBRS. 

(DECLARE ("VALUE" [frcZ ifrc/ ilPCi -,--)> 
Is used tiiskipply declarmiuns Att ihe RSUQR named in like TITLE. It must occur before any codc-aenerating 
insinrciions. DECLARE isVcs 4 LIST as iis one argument. Tlie Formmofthe LIST is js described in |3|. The 
string "VALUE" is t>piiunaU ifsiippUcd ii causes die fLisi t/eeMo declare Ihe TYPE uf ihe value "flhe RSUSR. 
HjK-'h additional i/ec/is DSSociated w lib one argvim en L Special STRINGS may also appear in ihc LIST with ihe 
following meanings: 

■"OUOTE" ThcncjilHTBunient isOUOTFd (not EVALcd). 

"OPTIONAL- '("he rest of Ihe arguments are optional lihe RSUBR must supply any defBults fnr these). 

-CALL" If this appears, Umusi be directly :]fterilic "VALUE" tfrcA It says there is one arELjmcni iind it 15 the 
FORM gcneralins Ihc call <sec "CALL" for f UNCT lONii in (Jl). 

"ARGS" 'niis must be the Ijisi STRING, X\ says treat Ihe rcsi of ihc arguments In ihe FORM as a LIST and 
passic OS the argument (sec "ARGS" for f UNCr lONs m l^l). 

"TUPLE- EVAL the rcslof thcaiBumcntSiind pics Ihem, 
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<ENO> 

iili3i^;]lc:i Ihc end ufjin RSUBR orgmup [jTRSUBRs. Only ihc [»t hclwccn TITLE and EKD psc^uiJii-nps wlU 
be prcicMscd by UiQ aiiscmblcr. T"hl4 makes JL powiblc tn iPiiermis iiMonibrcr source cade and niimi.il MiJi, 
siiircc ctidc in ihcsamc fi!r(aUhuuBh aiscmbty muslbctJtmc before camp llaiiun insuth casis). 
<TVPE-CODE lyef:ainiTf > 

4ill(iws references [Q ihc loiomol TYPE ciidcs Rir bmh aysiem and user defined TYPE 4. Ii lakwcinc Hireiimcnu 
die Mni TYPE r^aiTic, Tor ciL.imple: 

<MOVSI A- <TYPE-CODE FIX>> 

puis the TYPE eudc for FIK mm ihc left hiilfofaecumuliiuirA. 
<TYPE-WORD II pc.il fnnj any ... > 

generiiies a refercnM m a word eumamlng Uic TYPE eodc for lypc in die lell halfand possibly either juni in 
die rjgliEhiklf. 'Mie first jii-aunieiu iMhc TYPE n.iine and the rcatof die urgumcnis jirc ripiionjl bui IfsuppMed 
iirc Jitlded inui die jiglii h-ilf ITUic TYPE i^w IniLinl TYPE and no ^^B^l bjiTffcs gcncriiicd, a reference lo ihc 
'ST/iy^i^'UxiaMon in die incizrprcicr i'i gtin erased , h^or eiamplc. 

<PUSH TP- <TVPE-WORD flfc>> 
<:PUSH TP* [Q]> 

wimlcl push <i FIX on ihcsUKk- 
<GETYP ot jmr.gte^B> 

has Uic same fomi as a PDP-ID instarcilEin. ti gels iht IypE code for />'pff Into die rlghi half of iu 
DccLiTTiLdaiGr rnim ks address This is done by gencmcing an appniprLniEe LDB {fond byiej Jnslruciion. 
<HQUOTE obieci.-a,yt > 

jlfif^vs die RSUSR |d reference garViJiBi^ eollccicd spjiee. Ii adds its argiimcm lo ihe fiVECTOR (Ff U isn't 
ulTcidy [here) and ev^luaicii lo an addreEOfihe furm fi^/( R>. pciimirig to die value word for object. 
<P0UOTE obiifci:u,iv > 

is Jdcncieal lo <<MQUOTE vtjeci:any> -|> Le. IL puintsio [he iypc-4ord. nol the ^'olue-word-'iliis Is a more 
cun^isccni way to look al Lhln^ 

<IQUOTE objn-f.any la!jcl:altrm> 
is like PQUOTE eiccpi Ui;i{ [hfs *il] jidd n new clcmeni lo the reftrencc VECTOR cxh Ume cjilled. TTic 
opiiiiJS;i[ label \f s'vcti deftiics die ATOM [o be a label refernnft to diaielemenL '*1ip: fs [he on)> ^ny lo refer lo 
thut elcincni again. 

<PSEUDO o ^,wo -> 
ev,iluaios i|s argLimenL Tor iLs side effecLs and as»:mbles no codc- 
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<SIXBIT si£iiiM> 
mifVciSIJtBlT tifUic legal characters aFiM/ifi, 

mo.c.30U0ZE.rth.l<^Uh.™,c..of«r/.s.«d.iicVsUi.low^ordcrWW«nFm.op^^^^^^ 
hieh^ordcr four bi^s of iho value. S«: Oic MIDAS M.nu.^ HI r*>r -.n cxpW.tor oFtT-t: SQUOZt cod^. 

E^3mplc:<BYTE 1 3& <C> 1> i5 like < ( -O\43D0' ) (CJ l>- 

lsllVo<tAB> <- ? <- .'Jrsnuf,, i»>. ARG should nm be U5Cd in GLUE;iblc code. 
<STACK 5f-i^i/:rtfi>fU i>'iii-"^"i g'f,jJ.-fl;oi»i .,. > 

STACK shi"i!U ii"[ ho used in GLUEnWc codc. 
<DPUSrt (b: af£p 

<opop at: g^j > 

CDMOVE ^ lir^ J 

<nHOVEM iK ac£a> | 

urt ihc duublc-wofd PDF- 10 insirucilona. l-nr example, 

<OPUSH ffC args> 

expands inio 

*SPL1CE (<PUSH ac iiffii> <PUSIl ac ttrgs 1>) 

.v.lun<« .D KU.^ <mly ir ih. o-*-' f-'^ P.cv>uu.1y m ih. .od. b«n u«=d b » symbol, bu. h». nut been 

defined. 

<TF-HEtOED n-»>fHjf.ffft»fl i'fiI'VtUvnS - - - > 
lf<UNDEFV ^.„,i^/>cvn]uulCS.otnlC.then^llthe»m.^^lip;.*arei,.SCrtc^atthc^ 

dicy are not. 

tot« ^ nip and reads ii.^inicilHn* from it and insetis ihe In^imcHons read ai the current place. 

7.1.8. The Type BSUBR 

AnRSUBRisaMi^iobjectufPfllMTYPE VEClOn. ^-hc fir., element of an flSUBR fe tilway*^ of TYPE 
CODE(orPCDDE). CODE I. uFPRIMTYPE UVECTOR. ca-sisticig Of worf. or in^r.K-tio,.^-nie*:=ond clement 
OF an nsuBH is a^ ATOM -.hich i. tl.c RSUBR's n^me. IF .be RSUBR has d«:lan,li«ns they are Ihe third 
clcmenu l-hc rest of ihe RSUQft c^nmins MoLubjccts «hich musl be refereiKcd by the code 
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An RSUBR-tNTRY J. o V/ECTOR cF iw. nr ,hrcc i,.,.. 1.,, nr^MICm Is cUhcr .n «SUflR or .n ATOM 

^hc>.OGVAL^S.„RSUBR.,h. second is.. AfOHwlndnsU..cm,y-,n.r.c.ndQ,c third is.DECL^ 
C.,lry. n,c d,frcrc.n« between ,m RSIJBR :.mU an RSUBR^FNTRY .. Ehm :^n RSUBR ^l^^ys su^ns mnnms ^l 

[he h.'emnm£orihuc.Klcwh^n|Uscalfc^ While an RSUBR-EN7R¥.,su:mysu.,t. running ^mc^^^ 
middle of tlic code. 

7.1.9. Writing Gluable RSUBRs 

Ccn.,n conventions nu.si be fMo^cd wh.n wriUnfi h.nd cnlcd RSUBRs in ■»rdt:r id get d,= most benefit 
n..mGLU£inB. T m= RSUBfi W RSUGR-ENTRY) h.i. " TUPLE- .n ,l. DECL. i, is alro.,dy In Ihe hcst .h.pe 
p.^ihic, '"^■'"■'^»'==^tas«.,hccudcuncr die TITLE or SiJe-EKTRVpscudo-c.pcr;.,hM>.n..urd simply p^^ 
Uu-.,r£umencs.,nmdicTP^^fc.ndPUSHJ P* UMmc of mc Jn^ern.l oir^cs b,.^d ,m Uitrnun.hcr afitcrr^ 
un U,o ^ucS. AQ<:r ^l- PUSHO ii should du ;. <JRS7 FT«IS>. An in.em..T cmr> ,s «I up by uslnfi ihe 
INTERNAL-ENTRY p.cud<»-opwh(chtakKiwoQrgumerts: an fl/„,„ and .-.^jt, rHe ^/u,.. ^l-^ as Jf n wcrc a 
Ubcl o., ihc nex, .nsimc.hm .nd may be u,-.d 3s . label. 17,0/7^ .pcc.ncs hc>* m.ny items Uyi>c-v:,luc p,ilr.> 
.re on the stack m ih» imcmni c^tn.. In the .iriiplc en.= when, there .r. no ,.p,kmnl ar^i.^ents. only one 
mi^r-oT entry e^ist* and Fb number .-aumcni Js ex^d. d>e rcgu.rcd number of a-Euments. If opdonal 
nrftunienis c^ist, some kind ufdispiiKh will have la be tlunc. 

In the r«t of the body ,.f ,h^ rsUBR. nu r=fen.nccs l*. AB or TB (thmush ihe ARG or STACK pseudo-op, or 
trr,rctly> can be made, because after GLUEIng didr cunients m^y be mc-.ningless. All references in the TP 
siaclt mus[ be indexed by TP. lUe usi,d prec^udons conecrnins die possible movement or^de if an IHTGO 
orMCALLisdTei>ltoapply(|.c.theuteof<SUBH M- ( P) > at the beginninfl and <JRST HPOPJ> ^i the 
end ofthecitdeare essentially mandatory). 

7.2, Debugging Binary Code 

Hinary cude produced by die Mni. assembler or ihc Mm. compiler may be debugeed wi,h DD7. like any 
other binary code. However, on inte.F:K:e between iiuM code ^nd ti.e DDT environment inu.i exlsL That 
ihletfflccJSdie-HDB" PACKAGE. Il is ubtamcd by 
<USE -Hoe"> 

The symbol table optionplfy pmduccd by the as^^mbler can be passed .a DOT and at die same dmc die 
RSUBR frozen (moved out urntTrmjIfiarbosc-eulleciedtpacc) by: 
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<HFHEEiE ./^.fif-i'r- nubralom> 

Noie Uiai ;?o-if--o/'5iitrmfly jIm refer Id an flSUBR-EHTBV. 

<RBREAK rujnu-uf' rs i'hr:<ifom> 
iS5imlW.buimi.ddido.>cau«^D0TiDpmubrcDtpulniaiihtn.^tn5ir,.ctiunofihcRSUBB. 

tf,^iorci. no symbol L.blC,RFBEEiEar.dBBnEAKmcrol, freeze lhcRSUBP.^ap^«"psymboU 

RSUBR name an J -iny 5iib-cnirics, 

In oil cas« .he symhots p.^^d up ^r^ mode up of U.. IcB^.I SQUQZE diarac.cn. Ilctcon. difiiL., I M, 1 ^X 
,V.,„rthennme,upL,>.i.d,a™ten.For«nmplclh=flTQHF00--BLEC1ihecumc.lhe.ymb.,IFODBLE- 

n,iurn.a.= ^dr«^orc-6;«:/^aFlX. l-or example. ^ADrt -^.,fir> wm.ld rcmrn ihc Tocoi^n ..nJic ™f.Hn 

CDTti- ■ 

<RUHB[tFAK #m«jf-n/: ni ihr.aram> | 

clMftt>icbrc;.iVpoinUs)allheheeiiinineorthcRSUBBandDfan>Dril5Swb-cnlrics. , 



7.3. Unassembling Binary Code 

0.nvcnlng e.>mp«c 1 «r assembled bmury c^e ba.k inio somcdiine resembling :bc orislf.H a«cmbl« 
P^ure. ..«lc .. an operation dial Is pcrn.r^cd prhr,arMy in one .l.uaii.m: t-aekine down ^ Mm .mnpilcr bug. 
It is. hov^cer. uln,osi iavatuaHe in ibai .iuiatloT,. 'IH.. PACKAGE cunc^inlnE Tbc Lmassembler is "UNASSM-. 

'iTie main entry is 

<UHASSewBLE rrr/f /fT"^^^^ g""" 

glue7:fiooIean'> 

^^ute is the nbjKT being unassembled. U Is eidicr .n RSUBR (nt,t an flSUBR-E«TRY. nu^). or an ATO« whose 

LVAL is a group (as crcalCd by GROUP- LOAO). 
c«,/p^,is«hereiapu.iheou.put;iritisaSfR!**G.d>cntbeuulpuit5p.itmanicwithih^ina^^^ Tfu^/pi^m 

7cHANhEL.lbi.n<>utputisdoneonth.aCHA«flEL. l-he fllci^ VW^ UHASSH- by d=fflUlt_ 

Sfu^? (by default T, tells «be[het .he<e ate glue bl.= for the code K>,.ded. \f there .nte nunc, thta arEumcni 

^ihuuW be B'^cn aa a FALSE. 
1-hc ouipui produced by UNASSEMBLE i^ like ihc Misi curnpUers i,«embler mpui. wi.h the addition of 
con.n.enis s^hich give code .nd stack .,ff«=ts for ^^ sl..s referenced. Ihis information Is useful in .racitiB 
cie^ly .*hai Is fioiuB on In the code, but it b no. always accurate. sl™:e the compiler's st-nck m.^d fi 
aomciiincs mo complci fijf the unasscmbler lo undcrstand- 
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Mi,i con.p*fcr hug rcpons aro expect to c^m.ln Mm_ «,urec and UNASSEMBLEd oinipllcd ci>dc if 
possible. 
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8. Informational Aids 

This chapicr diKusics a Ftw priteroms. mfnl wriiiti. in asscinfaly langu-iet ra"li<^r ihan Mm., which are 
noncihcl«5ofusc lo MUI pmfinimmcrs, Moaarc inforniaLiunal aldsofonc Mn or anoihcn Tlicy incTudc: 

MUDCQM. a program fur comparins version? ofa Mm pruEf.im. ti i^ used hy coMtiAT (sec sccUon 5.2) lo aid 
in Lhc prciJurmiirn uf cctmpjlci plan fiica. Te lias several u^oFuJ aliases. 

Mat, lhc MUL ^aEsLgn' pnt^tam. producer ]lr>EiiiB5. indc]tcsand cross-rafcri^ncc Tiles fur Mill progranK. B, a 
?;imilar program which is luii MlH -lipiccrfic, v.Ul pcrfurm :ipprinLinalciy [lie MmC Eija^s. 

MuoiNQ Is an iiiicrfatro to ihe HS IPC device and Isihcicrorr a moans ufiTiicraciIng sviih any M[>i thai has 
die IPC device cn.thlod. Iihas an iiliab, STATUS, whieh is panic Eilarly useful Tm deicrminine lhc progress 
o f c<inipilalion&. 

8.1 . File Comparison and Checking with MUDCOM 

MuiK'OM is an aasembly rangu^ige progrmn fmii wriuen in Mde.K whfch ni>iicihe:ess unilt^rsuinds Lhc 
lyniax iifMlii prograins, Li Is iisrd for c[iirip:krlng [wo vcphlons of the Mmc pntgriim. and also {under ihe 
naaic Muix'TIkJ Tor eliccking the syntan af M|ii SEiurcc Hies moie iiipidly ihan ihcy c;in be iiuiiled inio a 
MllL, MU[x:DM i^ nui inierocdve: ai\ insiruciions mu^l be parsed on lhc jr/ line. 

MuiXDM undersrjind^ the fnllowrng Mill siructuns ai lop level: 

FUNCTIONS <DEFIh£ FOO > 

MACROS <DEFHAC BAR .,.,.> 

GVALs <SEIG MUHSLF ...,> 

LVALs <SEr MUHBLE > 

MANIFEST 

PACKAGE 

ENTRY 

ENDPACKAGE 

MSETG <HSETG FOQ l>is<SETG FOO l> <HANIFEST FOO> 

llicjcl for Mu[>COM Jn lhc simplest case \.^fi!ciiaiiiel ,_filei}tinif2. MtJiJcOM will compare lhc lwt> files flnd 
print out infurmjilion concoming those structures it undcrsunds which have been removed, ehnnged. or 
InwnetL 

MLiUtOMhaaa number of twitches which ean be ecL They arc gh'Cn as /swiiefi. vnhcvc switch is lhc name 
of lhc aviieh. Currently lhc rollowing ^wlCfhcsarc uscAjI: 

T prints luldEiT at die end of LhecomparisoiL 

Lprinisall FUNCTTONs Jitid GVALs in ihe file. 
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C cliccka ihc file fi^ en fursyniiU (unty one file name Ji h? limp)- 

M cliecks ihc nics Rsr changed MACROS' iind MANIFESTS In Ihl^ mode, MUUCOM will mjke a scciind pdss 
ihnniih ihc fin,L fiii^ given In the /r/. looliinH fcr -ill (.^ccurfences of cylls m ch.inEcd MACPOs and 
MANIFESTS, MULKTOM wJii consider FUNCT lOMs mjiklngsLit:h calls Jis halving hccn chjingcd" and will icll 
which MACRO ur MANIFEST caused ihe 'chanfie". 

'ITie rolliiwlTiaiJthcryt-/ is understood by MuricOM: 

(mtu'i . . . 1 iipp coring be furc ihc Hlc tiiimcs in thr^c/ *ill caiiM Mudcom lo IhinV thai ihtisc FONCTIOMs 
hjivc been chniigcj jmd wJM print ihcm >issuch. 

'•/flenat'ir" ,ippc:i ring anywhere in Uie Jf/ causes command? lo be read fmih Ui^ii file unlll ihc cndnif-Fde is 
reached, 

yUcrrif'ne - . - ) ia used tasp«:iry nicsiouaECh irt cuILb [q Ml] ill Nii (wc below). 

Al lascs tif M UDCOM : 

I. MUlKTiK.MUDCHKy;/F'fn"/rcbft;tsa riefor Ml" syninii cnurs, TTiis is the same ai 
MUDCOM /C Jileitanie 

XMuiiisi. MUDT.ST7J/«Jfli"* lists jU FUNCTIONS ^indGUALsfbund in Ihc file. Thlsis Ihesanw as 
HUOCOM /L JUename 

i-MUDJ-Ni*, :HUOFMD flli-^iJ .., (JUrJIIf} searches ^/« For FUKCT10«Ti/GVALS railed fl/omS, ll 
can be used forHndinga FUNCTION ma haystack. ITxIs is [he same as 

HUOCOM {aloiii alom) {Ji/f Jile} 

Since Oping this can be TCiiinus. it is easier lit use ihe "f llaname" convention and hiivc a disk 
nic cDiiiaining the flics lo be searched fsuiroundcd by {Js)- Thus, 

HUDFND FOO SAR BLETCh 'MARC ; ^ORK FILtS" 

WLII looli for the typical FUNCTION names m ihe Hies specified in MARC:ZOPH FILES, 

8.2- The MDL Listing Program MAT 

Mai is a pnigfam for prtiducine liscinss of Mm. pmerams on the Xciro Graphics Printer tXGPJ or a 
lincprinier. (Mat is shonforMiiiAisJeir. after the acncral I istini program named 9), 

Ifcsidesa llslins^rihe program iLscIf, HAT imludes a symbjil tabic - alia of defined ubjects taiBuments to 
pmNE, SETG. etc.) and option ally a cniss-tefcrcnce listing - a Uai oFevery place in thepmsram each ATOM 
is used. MAT canalso a produces record He. so that ilie ne^t Ume MAT is tun on the same program, only pages 
that have changed will be prinbuL 
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Mai is invoked wiUi a/c/Hnc in ihc roMowms rormai: 
MAT Iree^uutpulijipul-Jiies ... /switches ... 
More bpccifit.nny. ii tikes any number of iripai HIk (KpjFaicd on Oic Jet Mnc by commas} and produces a 
lisiiiiEofihcni in ihenwy^u; File, w-iih opiions spcciricd by the i>rj/fAra (each prtxcdcd by a /. jnd op[io]ianya 
fccurd file frtv (ECC sccilon 8.2.4). 

The ouipui file n-imc defaults on ITS to luname-.tiipm a urOXGP depending un whether the X swiich 1% 
ii5cd, and on Tene</'|"Ol*S-20 tri i'fpui.HAl or ";pi^/.XGP In theconncticd directory, 

■» 
8.2.1 . MAT Switctiea 

'llie spccinc sorts itrdpiioris aviillabic in Mat arp controlled by a variciy ofswitcbcfi which doiomTine such 
things ,ii whcUicr (o pri>duc<: a criHs-rcF(?re[ii:c liscing, wheJht^r lu use Uic XGI* as the oucpui device, and so 
□n. 'Ilie rollowlng switches are Iniplcmcnicd: 

causes o CJ-I15S- reference ILmiiig u> be produced, 'llils is a cable ^howlrg cjich reference to each ATOM (other 
Ihan SUBRiJ, FSUHHs-and locals) In the input Ti\is. 

specinesy!/i-"fli;jra5ihc file ciintairiina the user's definitions, Dc fi nit ions are discusfiod indtriiil below. 

/ F [ lexi-Jbuf , fiat/ffr-Jbni , <:i,m"ie/ii-Jbiil'] 
Specifies ilie XGP fonti lo use in the uu/pui flic. ITioy are respectively the Toni to use for the program liselF. 
the font for sublines and other headers, and Uie font far MiH COHMCHTs and uip-level STnihGs. 'F^e 
def.nm direciorj is FONTS and the default second file nnmc i^ KST. The Jcfaitli Font ifiSOFG. /f also causes 
a /X lo be performed. 

specifies a flic which contains the names of input liles, Thii is in lieu of typing ihctn all Id each fimc Mat i= 
nin. useful for Jarge subsysicms Incoipora^ing m-^ny files. The input file^ listed should be separated by 
Commas orcarnagf-relurns. 
/M 

cawxs ciLEtput ofonly Uic symbol Dblesand cruss-rcfcitincc listing (if specified). No heading ur title pages arc 
pruducctL 
/P 
On ITS. VflLHET^a ; PflOCED to DDT and continues. Useful for fong Mat nins. 
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pntn:i mesiagi^ M ihc boiiDin oTcKh page. 'Che dcfautl i^ a cijpyrifihi mcs^gc. 

/R 
crcaics a record file (thlsis auKimaiic if '/rcc=' istis^). Sec bcio* fnr dclart*; iiboi" record files. 

/S 
□uipvit^ cich nic in 3 miiTuplc Ilk lisUng ^cpdr^tcly, 

/J[_uw/ief uainr21 
specifics n^imn ro u£c on Lhc liilc p^e? (in lieu dTihc lllc mimes orrii^i irpuf flic). 

/U 
print-; jiscpamtcsymbul tabic rnr c^Hi lyptnf defined licm in iJio 'I'i'ul n\t^^'Ko-i- FUNCTION, GVAL, cic.>. 

decl:ircs thiii mirpui ts lu be fur ihc XGP. 'Hils clungca tl\c derauli nufpoi file scrciind n.ime lo 9XGP. If /F Is 
used. /r. IS done Jiulom^Clcally, 

8.2.2. SublitTea 

Siibtiiks cun bQ used by inclEidrng STRJNGs in an input lllc uhfcli begin viih ihc wurd SU13TITLE. The 
renuiinder "fihc 5TR JNG will be invd ns piin of ihc header of wch iniipuc p-ige iiniil -ndchcr suhu'ile b 
hiund. 'Hie String need nui be COHMCHf. Subci(lc£may have 3 mdiimum ofV? chatiiciers. 

Any file conliiinlng subtitles ivlll li.-ivc a table of CDnlonla at the beginning of ihc tnllng. 

6.2.3. MAT Definition 

The fKiliiy c>Liai5in MAT lo cause user iipeei Tied ocLions Looecurai the iLme aspceiHi: ATOM i:i about to be 
cross- referenced. The most important u5C df this is fur funccion^ which define things which the user would 
like Ma r 10 recognize. forcAampIc, a funcEion one of whoscsidc-cn'ccts is to 5ETG one ufits aigumcnis. 

When Mat encmmiers an invocation of the fimctlon f 00, wlitre f 00 has been dellned to Mat. at runs 
code gener^itcd by the user's Mai deFlniiiiin for FOO. which c.iiiscs various .leilunsro be performed. 

MaI' definitions arc always ]<icated in a disk llie which isspcciHcd by the /O switch. Roch dcllnition must 
be of the foim: 

£^iiame argi ar%2 argj - - - ] 
where iiffmeislhc name c^f the iLeni which is being de lined 'did the 4^^ are .-iclion specincation^ as described 
below. 
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The synum uf a Mvr dcOmtJon is samc*h« complex. Ilaiically. ihcre are iwo lype uracuuns *hich can 
cake place: 'siting- an ftTOM lo be cquiv:,lcni Co a specified lype {i.e.. FUNCTION, MACRO, etc) w 
■cross-rcfcnrncina- lie ATOM <ke,. m^kina i. appear jn the cnis-refcrc.«:c JisUng). 

The acmal dcridUlon For Ji. ATOM ts a st.inBorMAT aciion spcdfieations, unc f^r e.ich argumeni in a call 
loihjiATOM, Kor Maniple, defining FOO la be 
tFOO SETG SKIP SETG] 

imp||« at irasl ihrcc aiBumcits lu FOO, ihc flm and Uiird of whkh sTiojrd fi^ trcaicd as ifU.cy were SETGed. 
llius, if 

<F00 fROB 1 HUMQLE^ 
were cncouniered in iin mpui File. i[ would be ircaied as though 

<SETG FBOB any> 
<S£IG HUHBLE any> 

h:id been enc^iunicred. The symbol labic would Uien poini to ihc Ijnc nn which ihc ;ipp!lcaiii.n of fOO 
appeared ns ihc lucaiinn nfthe dennHiiinsifrF;JOB nmi MUMBLE, 

The fiilUiwing cukcn^ arc meaninBful ^Uon rkpecifjeaUons: 

CREF means tQcnjSS-refefence ihl?* ATOM, 

SKIP mean^EOdit nathlng wjih this argument fa pface holder). 

REST means thai the mi of ihc acilun spccificaiiuna may be reptued for the rest ofLhe .irsumcnts. 

iiomelv/hctc 'la/'i^^is ihc name ofa MJji SUBR whicFi causes aomcacii an lo he routinely perfonned) means to 
aciosthitugh die AIOH bad hnd that SUB R applied [i. iu ]-err*amplc. SETG will cause Mm lo treat (he 
item as if a StTG hud been performed on iL Simil.^rly, MANIFEST will cause Map to believe it 
MANIFESTed- 

ALSO means to do iinnl^itr thing kp [Ms ATOM. Thus, [SETG ALSO MANIFEST ] specifics thai the areument 
^Jiuuld be treaicti as ihoufih u were budi SElGedand MANIf ESTcd. 

■^jtj' where ij-are iwo chflracicis. cau*ws a user defined symbol type to be created. In the cross- rcJbrence. this 
will appear as jry in frontof the name of the ATOM. 



Any of Uic preceding lofccns may have I ~i,bfiM -iddcd. This means that instead of ihc ATOM being set to 
the spec! ficd iypc^ awi>r\-iiblisi willbescL Ihus. forcjiampie. 

REST SETGr-FLAGS 
mlehi specify a function whkh takes a LIST offlTOMsand perfbimB 
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<5ETG <INSERT alam <GET FLAGS OBLiST>> ony> 
nn each of iheni. 

[SPEC -O" wowir] specifics flflw/pLo be [hcciipanaion of jrj' for purpcs«or [he symbol Liblc. ^iimfcannot 
havcspjKKin iL 

Since nox all items lo be rccogniy.cd wFihin a tiinciiun cull arc at lop level, ihcre is a fLiciliiy for idling Mat 
lu rceugni^e stmcuires. Tbls is dune by inscctins ihc correct br-icfcei (whtch Ma i will cntiounicr) crdund Ihe 
p;iri of lt)C ^[lon ^peclficailon reTeirlng lo a siruciurc. For ciijmpic, a dcHnJiion fur GDECL <which a 

hiindkd Jnicmnlly^ however) might be 
REST (REST GDEEL) SKIP 
whrch «pecme^ thai [he drgumenU are alienia[ely a LIST of EJiings Lo GDECL and an ;iiaiimcnt which ]s 
unimponanL 

A ^ccial cnM uf brpclieiinB is when [he li<aUon of Ihc s[nicturc is not known. In Ihfc case. bmckei\ 
fnCnmsTInd [he nc*[ object Uiai «ans wUh ih Is brock ei'. An example laicr dcmLij]±Lra[CS this. 

Wlidi follows arc some <;jiarn pics fiom a real denniiion file. 

[f4EU51RUC NEWITPE SKIP RESF SE TG SKIP] 
NEWSTRUC lakes un ATOM which became^ (lie name of a HEWTYPE. [he DECL for Uia[ TYPE (which tl not 
inEcrcsiing in MaT> ^nd an arblirary number of pain uf ATOKa Inamcs of ofl^[S in Lhc struccure) anil [bcLr 
DECLs {again, nol Inlcresting). 

[FLAGWORD REST SETG] 

fLAGWORD Cakes an arbiuary numbcrof ATOHs and 3£TGs Uicm KfmeUiin^ 

[SPEC PG Pura-GvBlJ 

[SPEC OH Object] 

[SPEC AC Action] 

[SPEC va Verb] 

[SPEC OS □bjact-SynonyHfc] 

[SPEC AO AdjactlveJ 

llicse define Ihe long descrlpEions for [he newly dttfined symbol lypcs created lix the examples. 

[PSETG -PGJ 
PSETG laVesan ATOM and a vjilnc and SETGs the ATOM <alsu puuing iL in a LIST or ATDH:i Eo puntV)- 

[GET-OBJ "CREF"] 
GET -OBJ [;ikcsa STRING PHAME of an objccl and re[iims [he objecL llils definition allows "objecl" [O be 
crfflB- referenced here. Note LhatCREF is in quotes because ihe element being dealt with Is a STRING^ 
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[OBJECT C^Oe- REST --OS"] fHEST -^AD']] 
OBJECT crcjiics objctl!! which arc rcforchccd by GET-OB J. OBJECT firit iak« hi VECTOR uf STRINGS, [he 
nisi of which is Uic ituc objccl specifier (OB) and ihc rest otwhlch arc synonyms iOS). ITii: sccand jirBumMi 
Is a VECTOR nFSTRIhGs, which arc PNrtHETi of :idJKirvC5 rcfcmiiH lu the iibjcci (AD). 

[*DD-ACT10N ■■=ACJ-flCT10NS" SKIP REST [[■- -VB ! -WORDS" SKIP]]] 
rtDD-ACT10Ntrei.[csvcrb5'. The rnmc of iht? verb Is ihc first nrfiumtnl. whJch U a STRING. ADD-ACTTOW 
SETGs rm'Hfi! -ACTIONS lo fln iicm of type ACT ION (AC>. fhc second mgomcnr is noi InicrMilns. "Jlii? reH 
ofThc niHumcnifi arc VECTORS, siimcwhcrc in which la a VECTOR of Ji STRING .^nd .^n uni[in:ri-iOnE QhjccL 
AOO-ftCTlON SETGs Ihis Lmcr 5TPTNG (Ihc PNAME of an ATOM Jn die WORDS OBL 1ST) t^i a^mclhing of 
type vcrb(VB). IhU Lijboui ns compTlcaicd as a Mai [ypc snccinc-iifcon if, Mkcly iPSCL 

[lADO-ftCTlON "=flC!-ACT10NS ALSO =VB F -WORDS"] 
lADO-ACTlONuk«:isiL5/ln>l Jirfiumcnla STRING *hij;h Is SETGcd bulh In die ACTiONS OBLIST and in 
Uip WOROS DBLlSr, Irt fln ACTION lAC) oada verh (VBJ, rcspccuvciy. 



B.2,4. MAT Record Files 

r.ls[irgI(L'curdti>r LREC)nictaJEiniue LREC files, cnn be pr^KlLiccd In MAI by liKluding^/f* in ihc^/ 
hiic- Use or an Lrec flic has ihc -idi-jmLigc ihai fuiurc inv,«:aijons of Mat uslna ^i need only iiutput ihe 
changed pages of ihc lisijng. ITit LREC file pn>dj.rccd will be pLiced m JUr and coni.iins aT] rcTcvaiiijrf:/ 
InfiirniiitJon, so thai fminT calls U. Mat for corrjiiirison LJsdnes n«J only h3vej!/f= \n ihc ji-l lint Additional 
j<:l may ihcn be appended. TTierc la, however, no way to lum nif flags once xi up. ITiercForc. if a 
cross- rcrercnce file ]s lo t>c used only occoaionally. Icavins ihe crussicrcrence UC) Has off for Ihc JnlLial 
Ij^dngand appending IE moLhi^r limes is preferable. 

An alfemaie way of creating a Lisiing Rccmd file is to use /R which iscqulvaloniBj 
inpu/-j7Je-_frrsi-Jrie-itawe LREC> 
In jhcjcf. ObvKHisly. /R Is notsumcreni for fumrccumparisons, 

Q.3. The MDL'IPC Devit^e Interface MUDrNQ 

MuniNO rs a small program dui FonnulaTes, 4cnds. and reccrvcs mcsMEcs lo and fnim Mills over tlic ITS 
ll'C (■rnicnpR>ccftL Cnrnmumcjjik.n) device. iTic user apccinet -i [^.rfici Mi>i process by lis UH.mir midjname, 
cidicr on Uic/f/]inc nr to Muuinq directly. He tlicr inpuus the niKSjigc lo be sent lo thai Mm. ITic message 
sent is cnclOMd in an Invisible proicciivc shield [an ERROR handler and sii fonTi) to present Jt from 
inicrfcHng in Che opeF,nion of the tsigOL The mcsaiEC Is PAPSEd and EVALed by ihc lai^ct, ai.d the resuU 
put in a frlc which is primed by MuoirvQ when it appeals. 
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The most cummon use of this pmgram Is Lo answer thr qucsdon 'WhaL could my compilation <or 
iiwliaipvcr) be doing after ali ihfS limc?" The answer may bcobtxkncd by MuiJiNQiHB a <FRft> or <FRAHES> 

[nqu'r^ng after the siaLC of a nompilacion Is such a mnunun use of Mui^iNQ ihaL ihcrc is an alias of ii, 
SiATUS. which MuirtrJO^fl <STATUS> f5cc5Cciit>n5JJ)ai a compilLT process and waits fi>r p rcsponwr. 

Fmolly,nn alios of MuDINW called Wilom Iais thiiw Mdi jobs ^isicnme on ihc IPC device. 

F-"ormore deltas on ihc operation ofllic M[ji IPC inierfBce. sccU], 
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EDIF IS. 19,41 
EUIT'TAHIE 31 
£H[] IJB 
EhDDLDCK 9 
EhOPACKAGE 10.13 
FhlRV L0,12.&3 
ENIRV-FlhD IB 
EHV 61 
EPniNI 17 
EPftlMT J7 
EHHET Jfl 
tVAL-WHEl 61 
EXPErr^NtHIAL is 
EXPfLOAD 41, aim 
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OUT'PRINt A5 
DUT-UldlOU( 44 
OurChAH W 

PACKAGE IRll.JtJOa 

PACKAGE-FIHD 70 

PflCKflCE-KODt AI.S& 

PC 29 

PCODE Tfi 

PCOHP 79.90 

POUH^ 104, 106 

PHAME 14 

PPRrVF 16 

Pl'frf^l 15 

P{JUOI£ IT9 

PFIECOHPlLtJJ ai.86 

Pfllhl JT 

PII ENr -CLEANUP UO 

PStUOO 115 

PI Z5 

PU ZS 

PURE? W 

PUItELSI 109 

runiTv J07 
D " 
on S? 

CJUlCRPRTIfT 16 

R a 

PDRFAK 122 

rtFAOJ-IUTEHRUPTS 46 

PtASOHABLE 62. B7 

REDEFINE 1£ 

FfEDO 81, S6 

HEhlRr 12 

REPAIR 42 

REIPT » 

HFHEEiE 111 

RH 11 

nOOT 13 

nPACVAGf li 

HUVSHEAK JZ2 

AVECTCIH t03 

S 24 

SAV 7J.J06 
SAVE IDA 
SIlF-FASI 44 
fRDni-PRJUI M 
51V1I1T 119 
SL 24 

SOURCE BI.B7 
SPEC-FIND 7S 

SPECIAL Hi, a? 

B0UO2E 120. 122 
5R 14 
SIAEK l?0 
5IAIUS 75.00 



SU 27 

SUB-EMTRV IIS 
TURRET 106. ID? 

SW 27 

lEHPLAIE J ID 
lEMPLAIE-DUVP lO 
TCTIPHAME SI.B6 

TiitE ua 

IFTACE |).44.4S 
liVANSLATE $7 
IPAh^LATIOhS 67 
TYPE'CME 114 
TVPE'lHaRD 119 

IS 24 

UC 2B 

Ul 24 

UM 30 

UhASSfMQLE 127 

UMDEF? 130 

UHJ^IkTir 54 

UNPLTRirr 54 

UKPLnTiry-PACCI-ruHLIHK M 

UHIHACE dS 

UPiri4AN&LAIE 67 

UR 14 

USE EO, 12, IJ. U.fij 

USE-DATUH 10. IJ,l4 

USE-DETER 66 

Uai-TDIAL 6« 

UI 23 

V JM5 

VALUE 40 

VERBOSE 4S 

VEFEIICAL 16 

4H II 

kllirEI-INIEflPUPTA «6 

A 37 

lA 41 

IE 41 

TF S 

m 42 

TO 42 

'it 42 

TR 42 

TS 3J 

M,^i- 136 
MejUCiik 12b 
MUiiuiM B6, LIS 
Muiti'Nii 1 26 
MiritrhD I J] 
Muuiffr I2A 
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r 13 
FCDMP so. as 

FEAlimES ftl 

FELt-A3SLH9Lt J 15 

FILt-CCHPILE J9 

FJLE-TEHPLAIE 111 

FlUa-FILl 7i 

FINOAIOH SO 

FIVUP 15,72,106 

FLIST ^S 

FLOAD 14. 107 

FLUSH-CLTitHUP llO 

FOPH-FAST « 

FRfr Ifl, J7 

FR»P 19 

fRftl/JLL 10 

FHAHIS 18,37 

FRAIH 19 

FALVAL LV,3I 

FRH IS, 70 

FRirPE 14 

G U 

GET-FILE 75 

GETYP 119 

GLUE a2.t7, 101.I04.ID7.L21 

GO 2B 

Gnaup-burtp 39,104.11} 

GROUP -SLUE 104 

GR0UP-1.0AD 16. i9, SI. lOb. 107. lOB 

GROUP-PURIFY 10( 

HAEPl-AIIALrSlS 93 

HtLF 43 

t 25 

I- » 

It 3S 

lE-HETDFD 131 

IE » 

IH-BIIFIIK 44 

m-PRtHT 4S 

IJTCHAII 59 

IWIEIir-Dlf 43 

iHDEm-mL 43 

EHDim-HOD 43 

miiTAi. i*.*5 

HrrLHUAL-lHTRV 118.111 

iguoiE 119 
IT rj 

K 2tt 

KB 3D 

nc a 

KEEP-FIitUPS 15.16,41 
KILL- ALL -HOJlIIDIIS 49 
KU-L-NOmrOR 49 
KILL-SUDHFV lai 



KILL:PlJR[TY 101 

Kl U 

L U 

L-ALrfAVB-TkOtllFlE CS 

L-COUIirE 69 

L-CDUUIP 60 

L-riLE M 

(-FIUD 69 

L-LISfE 69 

L-tl5TP 69 

L-LJ3TPE 70 

L-LOAD 69 

l-MO-DtfEH Se.SB 

L-HO-HAGIC U 

L-HOTSY 6B 

L-OBl TO 

L-PHTH 70 

L-S(ARC'I-PATH 64.69.69 

L-SE COJIU-IIAHFS M.6S.faa 

L-rflAHSLATIObS 6' 

L-LWUSE 1D.13 

L-»IERE 69 

LAST -our 4Z 

LIB-GC 72 

LIBHUD 64 

LThE-CIIAhyEL Hi 

LTSTF 74 

I-OAH M 

LOOEAHEUl ]« 

LUP-AHI 71 

l,Ur-JUHl-nATlH 77 

LUi'-Dtl 71 

lUP-OFL 73 

L UP- HOVE 73 

H 37 

MACRO B6 

KACRO-COHPlii B2,0I 

HACHO- FLUSH 02,(7 

HAGIC-RSUeit 40 

KAKL-SVH-IABLE lU 

HAHIFEST K 

HAI-SPACt (2.07 

l«CALL IDJ 

MOHirOR 4J 

HOHIIORS 49 

HOUOOJ 4a, « 

HOhSPEC 49 

H(?UOEE llV 

miDOLE 117 

hEI^AL 4S 

HdDE 94 

yPCOHP 79 

Z3 

OBLiSI 9,59 
OLDVAL 4B 
OP 117 
OPCODE 1M 

01 23 
OUT'OHEJU 45 
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